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Initiation Procedure-IBM 2741 

1. Set terminal mode switch to LCL. 

2. Set tenninal power switch to ON. 

3. Set margin stops at and 130. 

4. Set tab stops by using TAB key. 

5. Press RETURN key to position typing element at left margin. 

6. Set terminal mode switch to COM. 

7A. Direct-wired terminals: press ATTN key to start LOGON. 

7B. Dial-up terminals: press TALK button, lift receiver, dial time- 

-sharing system; when continuous tone is heard, press DATA 

button and replace receiver. 

Temiinal is now operational; enter LOGON command 



Initiation Procedure-IBM 1052 

1. Set panel switches: 

Switch Setting Position 

SYSTEM ATTEND up 

PRINTER! SENDREC middle 

KEYBOARD SEND up 

READER 1 ON up 

STOP CODE OFF down 

SYSTEM PROGRAM up 

SYSTEM - up 

TEST OFF down 

SINGLE CY OFF middle 

RDR STOP OFF middle 
Set dl other switches to OFF or HOME positions. 

2. Set margin stops at and 130. 

3. Set tab stops by using TAB key. 

4. Turn on main-line switch; POWER light should come on. If neces- 
sary turn off the data check light by pressing the DATA CHECK 
pushbutton. 

5 A. Direct-wired terminals: press ATTENTION/LINE RESET key to 
start LOGON. 

5B Dial-up terminals: press TALK button, lift receiver, dial time- 
sharing system; when continuous tone is heard, press DATA button 
and replace receiver. 

Terminal is now operational; enter LOGON command 



I nitiation Procedure— Teletypewriter 

L Check paper supply. 

2. Press ORIG button on control unit; the button lamp should light. 

3. Dial tone should be heard; volume adjustment can be made with 
SPKR VOL control. 

4. Dial system number. A high-pitched sound will be heard when 
connection with the computer is made. 

Teletypewriter terminal is now operational; enter LOGON command 
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Initiation Procedure- IBM 1056 

1. Set AUTO EOB switch on card reader, as appropriate. ON causes 
end-of-block code to be sent automatically after a card is read or 
when an EOB code is detected on the card program tape.* 

2. Initialize at terminal, as described under "Initiation Procedure- 
IBM 1052." 

3. To begin card reading: 

A. Press EJECT button to clear any card that might be in card 
reader. 

B. Place cards in hopper, face down, with 12-edge toward reading 
station. Cards must have an upper-left corner cut. 

4. Type in the card-character transfer code C, CA, or CB to indicate 
SYSIN as the card reader and the character set as either EBCDIC 
(IBM 029 Card Punch) or PTTC/6 (IBM 1057 Card Punch). If the 
user types C, CA or CB before logging on, he must supply LOGON 
information on first card. 

5. A single card can be read on 1052 by pressing READER 
START/LINR. 

6. Press RETURN key. System checks card reader for input; cards 
will be read without user intervention. 

*If the 1056 has a program tape switch, set it to ON to indicate 
additional input data or control of card reading; set it to OFF to 
indicate that only cards will be used as input. If a program tape is used, 
open the right-hand side panel and place tape column 1 over the con- 
tact-roller center line. 

Terminal Procedures-IBM 2741 and 1052 

Entering Line 

1. Enter 1-130 characters. 

2. Press RETURN key. Where TSS/360 has set length limits (e.g., 120 
characters for line data sets) overlength records are rejected. 

Continuation Lines 

1. Enter 1-129 Characters, followed by continuation character: 
hyphen. 

2. Press RETURN key ; enter continuation line 
Canceling Line (before RETURN key has been pressed) 

1. Enter line-kill character: #. 

2. Press RETURN key or (for 1052 only) hold ALTN CODING key 
and push CANCEL key. 

Canceling Line (after RETURN key has been pressed) 

1. If line was part of data set, cancel line indirectly by canceling or 
modifying it in data set. 

2. If line was command, it can be canceled only by attention inter- 
rupt that may or may not be effective. 

Canceling Characters (before RETURN key has been pressed) 

1. Press BACKSPACE key past incorrect characters, thereby erasing 
them. 

2. Correct the line as indicated below or, if no correction is desired, 
press RETURN key 

Correcting Line (before RETURN key has been pressed) 

1. Backspace past incorrect characters, thereby erasing them. 

2. Turn typewriter roller up 1 or 2 lines; maintain character alignment 
resulting from backspacing. 

3. Type corrected characters 

4. Press RETURN key 
Terminal Shutdown 

Normal: Issue LOGOFF command; when execution is completed, press 

terminal power switch to OFF. 

Emergency: Press ATTN key (2741) or ATTENTION/LINE RESET key 

(1052). When system types underscore character, proceed with normal 

shutdown. 
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Methods for Terminating Card-Reader Control 

1. Run cards until hopper is empty ; if in command mode, system will 
prompt 1052-terminal user with underscore character. 

2. Supply input card with: 

coll = _ K (keyboard wiU get control; PROCEED light will go on). 

3. Press ATTENTION/LINE RESET key; system will then poll termi- 
nal for input (providing user has not taken control of attention 
interrupts). 

Resumption of Card-Reader Control 

1. Type C, CA, or CB. 

2. Press RETURN key. 

Terminal Procedures— Teletypewriter 

Entering Line 

1. Enter 1-80 characters. 

2. Terminate line by pressing CTRL key and X OFF key simultane- 
oudy. System will issue carrier return and line feed before prompt- 
ing for additional input. 

Continuation Lines 

1. Enter 1-80 characters, followed by hyphen. 

2. Press RETURN and LINE FEED keys; then press CTRL and X 
OFF keys simultaneously. 

3. Enter continuation line. 

Canceling Line (before end-of-line sequence) 

1. Enter line-kill character: #. 

2. Press RETURN and LINE FEED keys; then press CTRL and X 
OFF keys simultaneously. 

3. Retype correct line. 

If end-of-line sequence has been used, cancel line indirectly (e.g., use 
MODIFY command). 

Correcting line (before end-of-line sequence) 

1. Press backspace key (•^) the number of characters to be replaced. 

2. Type in correct characters; continue entering line. 
Terminal Shutdown 

1. Normal: Issue LOGOFF command; when LOGOFF is complete, 
press CLR on control unit. 

2. Emergency: Press BREAK button; when system prompts with 
underscore character, foEow normal termination procedure. 

If unable to terminate task from terminal, call system operator. 



Special Function Keys 

IBM 2741 and 1052, and teletypewriter 

ATTN (2741), ATTENTION/LINE RESET (1052), BREAK 

(teletypewriter) -Generates attention interrupt to stop processing. 

System Response (for 2741 and J 052} 

1 ! or _ 
System Response (for teletypewriter) 

\ ! or ] ^ 
User Actions 

GO resumes processing 

ABEND terminates task 

REPEAT repeats interrupted message 

null (carriage return) resumes processing 
any other command should be accepted and processed 
attention key press key and get system responses, five times 

without intervening commands, to terminate 
task ( for AETD routines only ) 

If user has his own intemipt-handling program, response is deter- 
mined by that program. 

RETURN (2741, 1052)-causes a typing-element return, line feed, and 
an end-of-transmission character. RETURN key ends every line of input 
from keyboard and marks defaults when replying to system messages. 
Keyboard is unlocked when system is ready for input Unes. 
BACKSPACE (2741, 1052)-cancels a line or corrects erroneous charac- 
ters in a line. Backspace characters are edited out of input stream and 
do not appear in stored data; they are transmitted and included in 
260-character maximum for line. 

RESEND (1052)— used with associated light during block checking. 
Light comes on when end-of-block character is sent by terminal; turned 
off when receipt is acknowledged by system. If light remains on, or if it 
and DATA CHECK light are on, an error may be indicated. WhBe 
RESEND is on, system will not accept input. 

LINE FEED (1052)-moves paper up, according to line-space setting, 
without moving typing element. 

CANCEL (105 2) -cancels line, while ATTN CODING key is depressed 
before RETURN key has been used to indicate end-of-line. See ''Termi- 
nal Procedures-IBM 2741 and 1052." 



Teletypewriter Control Unit— Buttons and Keys 

ORIG 

CLR 

LCL 



BUZ-RLS 

Telephone-type dial 
OUT OF SERV 

NORMAL-RESTORE 



energizes terminal and dial tone 

disconnects terminal from computer 

places terminal in local mode; can be used 
as typewriter, without connection to 
computer 

silences paper-supply buzzer; light will 
remain on until more paper has been 
inserted 

dials in computer 

used when inserting paper or changing 
ribbon 

used when inserting paper or changing 
ribbon 



BRK-RLS resumes keyboard operation after break 

signal; computer can transmit break signal 
and lock out teletypewriter; the BRK-RLS 
button, followed by K, unlocks keyboard 

BREAK generates attention interrupt; usually, 

system responds with underscore character 

SPKR VOL controls volume of speaker 

CTRL used in combination with function key; 

e.g., CTRL and X OFF must be pressed 
simultaneously for end-of-block signal 

LOC LF causes line feed at the teletypewriter with- 

out signaling computer 

' ^ backspace to correct erroneous characters 

TAB for tabulation; must be pressed with 

CTRL 

LINE FEED moves paper up, according to line-space 

setting; part of end-of-line sequence 

RETURN key returns printing element to left margin; 

part of end-of-line sequence 

X OFF sends end-of-block character to computer; 

must be pressed with CTRL; part of end- 
of-line sequence 

LOC CR returns printing element to left margin 

REFT used with character key, causes repetition 

of character until key is released 



Error Light Indicators-IBM 1052 

RECEIVE ALARM -Incorrect switch setting, more paper required, or 
paper not held down by roller. 

DATA CHECK -Normally on when power is applied to keyboard; if 
both DATA CHECK and RESEND lights are on, redundancy-check 
error may have occurred; system will try to correct, if it was sending 
output to terminal or receiving input from card reader; otherwise, user 
must take corrective action. If error continues, system will terminate 
task because of communication line failure. Action: Press DATA 
CHECK and RESEND buttons to turn off lights and reenter line. 



RESEND -(See DATA CHECK above.) 

PROCEED -When out for abnormally long time, indicates equipment 
f^ure. Action: Try to key first letter of next line to be entered; if 
keyboard operates, light itself has failed. If DATA light on Data-Phone 
is not on, connection with system may be broken; if light is on, press 
ATTENTION/ LINE RESET; then, if system does not print an under- 
score, request operator to terminate task. 

POWER -If off, main-Kne switch not set to POWER ON, power cord 
not plugged in, indicator-light or equipment failure. 



Teletypewriter Error Light Indicators 

DIAL lights during dial tone 

BY lights during busy signal 

NO CON lights when no connection (i.e., connection not established 
within specified time) 

SVC lights to indicate malfunction during call 

PA lights to indicate low paper supply 

red light lights to indicate end of line 

Unused Keys and Lights 

ANS INCPTUght WRU RU FORM 

TST HERE TAPE BELL RUB OUT 

REST ALT MODE EOT VT 

Error Conditions— 1056 Card Reader 

1. Running out of cards or jamming: the system checks the keyboard. 
Proceed to : 

A. Resupply cards in hopper 

B. Type C, CA, or CB 
C Press RETURN key 

2. Transmission error: DATA CHECK and RESEND lights go on, and 

system checks keyboard. Correct by using steps in A or B, below. 

A. Correct information from terminal 

Press RESEND and DATA CHECK keys to turn off lights 

Type correct data 

Press EJECT key to stack error card 

Type C, CA, or CB 

Press RETURN key 

B. Fix error card; insert corrected card 
Press EJECT key to stack error card 

Remove error card, correct it, and place corrected card in 

hopper as first card to be read 

Press RESEND and DATA CHECK keys on keyboard to turn 

off lights 

Type C, CA, or CB 

Press RETURN key 

Character Sets- IBM 2741 and 1052 

Full EBCDIC character set is specified by using KA command. 
Folded EBCDIC character set is specified by issuing KB command; 
default: KB. 

Character Set— Teletypewriter 

All EBCDIC upper-case letters. 

Special characters ~1 _f are represented by /] [. 

All lower case EBCDIC numbers and special characters. 

No lower-case letters. 



Character Set- IBM 1056 

The 1056 card punches (PTTC/8) are translated to upper- and lower- 
case EBCDIC characters. The card punches from 1057 and 029 are 
translated to internal EBCDIC code when read from 1056; 1057 
punches must be read in CA mode and 029 punches in CB mode; punch 
codes for 029 and 1057, and related internal graphic representations, 
are in table later in this section. 
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LOWER CASE CHARACTERS 



EBCDIC 

Graphic 

C1052/2741 

or Printer) 


Internal 
EBCDIC 

Hex 
Codes 


TTY 
Graphic 


IBM 1056 Card Reader 


IBM 1057 1 


IBM 029 


Key 
board 


Punch 

b 


Key 
oard 


Punch 




4B 






12^-3 




12-8-3 


$ 


5B 

6B 


$ 


$ 


n-B-3 
0-8-3 


$ 


n-8-3 
0-8-3 


# 


78 


# 


# 


8-3 


# 


83 


@ 


7C 




@ 


8-4 


@ 


8-4 


& 


50 


& 


& 


12 


& 


12 




60 


- 




11 


- 


11 


/ 


6! 


/ 


/ 


0-1 


/ 


0-1 



1 


FO 

F1 



1 



1 



1 



1 




1 


2 


F2 


2 


2 


2 


2 


2 


3 


F3 


3 


3 


3 


3 


3 


4 


F4 


4 


4 


4 


4 


4 


5 


F5 


5 


5 


5 


5 


5 


6 


F6 


6 


6 


6 


6 


6 


7 


F7 


7 


7 


7 


7 


7 


8 


FB 


8 


8 


8 


8 


8 


9 


F9 


9 


9 


9 


9 


9 


a 


81 


...... 


a 


12-1 


a^ 


12-0-1 


b 


82 




b 


12-2 


b 


12-0-2 


c 


83 




c 


123 


c 


120-3 


d 


84 




d 


12-4 


d 


12-0-4 


e 
f 


85 
86 




e 
f 


125 

12-6 


e 

f 


12-0-5 
12 0-6 


g 


87 




9 


12-7 


9 


12-0-7 


h 
i 
J 


88 
89 
91 




h 
j 


12-8 
12-9 
11-1 


h 

i 

i 


12-0-8 

12-0-9 
12-11-1 


k 

! 


92 

93 




k 
! 


112 
113 


k 

1 


12-11-2 
12-11-3 


m 


94 




m 


n-4 


m 


12-11-4 


n 


95 




n 


11-5 


n 


12-11-5 


o 


96 




o 


11-6 


o 


12 11 6 


P 


97 


...... 


P 


n-7 


P 


12-11 7 


q 
r 


98 

99 




q 

r 


n-8 

11-9 


q 
r 


12-11-8 
12-11 9 


s 
t 


A2 

A3 




5 
t 


02 

0-3 


s 

t 


11-0-2 
11-0-3 


u 


A4 




U 


0-4 


u 


n-0-4 


V 


A5 




V 


0-5 


V 


11-0-5 


w 


A6 




w 


0-6 


w 


11-0-6 


X 


A7 




X 


0-7 


X 


11-07 


V 


A8 




y 


0-8 


y 


n-0-8 


z 


A9 




z 


0-9 


z 


11-09 


blank 


40 
17^ 


blank 




0-8-2 




0-8-2 
12-0 




17 






0-8-5 






17 






8 7 




11-0 




17 






1 1-0 








17 






12-0 








17 






12-8-7 









1. a-z not on keyboard; must be punched using multiple punch; print 
as A-Z at terminal during input. 

2. No assigned graphics. 
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UPPER CASE CHARACTERS 



EBCDIC 
Graphic 

11052/2741 
or Printer) 


Internal 

EBCDIC 

Hex 

Codes 


TTY 
Graphic 


IBM t056 Card Reader { 


IBM 1057 


IBM 029 1 


Key- 
board 


Punch 


Key- 
board 


Punch 


1 
I 


5F 

5A 




1 


12-8-1 
n-8-2 


T 


1 1-8-7 
11-82 


lor±»o 


4F 


t 


. 


0-8-1 


! 


12-8-7^ 


) 


6E 


) 


) 


0-8-7 


) 


0-8-6 


* 


4A 


p 


4 


11-8-7 


4 


12-8-2 


+ 


4E 


+ 


+ 


12-8-6 


+ 


12-8-6 


_ 


60 


1^ 


4 


0-8-6 


_ 


0-8-5' 


? 

1 


6F 
50 


? 

1 


? 


12-8-2 
11-8-5 


7 

) 


0-8-7 
11-8-5 


= 


7E 


= 


= 


8-6 


= 


8-6 


°or<'^ 


4C 
5E 
7A 


( 


n 


12-8-4 
11-8-6 
8-2 


< 


12 8-4 
11-8-6 
8-2 


% 


6C 
70 
7F 


% 


% 


0-8-4 

8-5 

8-1 


% 


0-8-4 

8-5 

8-7* 


( 


5C 
40 


i 


( 


11-8 4 
12-8-5 


i 


11-8-4 
12-8-5 


A 


CI 


A 


A 


12-0-1 


A^ 


12 1 


B 


C2 


B 


B 


12-0-2 


B 


12-2 


C 


03 


C 


C 


12-0-3 





12-3 


D 


C4 


D 


D 


12-0-4 


D 


12-4 


E 


C5 


E 


E 


12-0-5 


E 


12-5 


F 


C6 


F 


F 


12-0-6 


F 


12-6 


G 


07 


G 


G 


12 0-7 


G 


12-7 


H 
1 


C8 
09 


H 
1 


H 
1 


12-0-8 
12-0-9 


H 


12 8 
12-9 


J 


01 


J 


J 


1211-1 


J 


11-1 


K 


02 


K 


K 


12-11-2 


K 


11-2 


L 


03 


L 


L 


12-11-3 


L 


11-3 


M 


04 


M 


M 


12-11-4 


M 


11-4 


N 


05 


N 


N 


12-11-5 


H 


115 





06 








12-11-6 





11-6 


P 


07 


P 


P 


12-11-7 


P 


117 


Q 


08 


Q 


Q 


12-11-8 


Q 


11-8 


R 


09 


B 


R 


12-11-9 


R 


11-9 


S 


E2 


S 


S 


11-0-2 


S 


02 


T 


E3 


T 


T 


11-0-3 


T 


0-3 


U 


E4 


U 


4 


110-4 


U 


0-4 


V 


E5 


V 


V 


11-0-5 


V 


0-5 


W 


E6 


w 


W 


11 6 


W 


0-6 


X 


E7 


X 


X 


11-0-7 


X 


0-7 


Y 


E8 


Y 


Y 


1108 


Y 


0-8 


Z 


E9 


Z 


Z 


11-0-9 


Z 


09 


blank 


40 


blank 











1. \ is used as NOT sign ( ~1); it is upper-case L 

2. [ is upper-case K 
'3. I is upper-case M 

4. ~1 prints at terminal during input 

5. prints at terminal during input 

6. Nothing printed at terminal during input; use multiple-punch 0-8-1 
to print I (OR) at terminal during input 
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7. Nothing printed at terminal during input; use multiple-punch 
12-8-1 to print ~1 at terminal during input 

8. Nothing printed at terminal during input; use multiple-punch 8-1 
to print ) at the terminal during input 

9. A-Z print as lower-case letters at terminal during input 

10. Vertical bar on 1052 and 2741, except 2741 correspondence ter- 
minal, on which it is the plus-or-minus sign ( ± ) 

11. Degree sign on 2741 correspondence terminal is folded into less- 
than sign 



Functional Character Sets 





EBCDIC 


Punch codes 


Function characters 


equivalent 


029/1057 


IBM 2741/1052 






TAB 


05 




SHIFT (up)» 


36 




SHIFT (do wn)i 


06 




BACKSPACE^ 


16 




RETURN (new line) 


15 




LINE FEED 


25 




BYPASS (stop printer)* 3 


24 




RESTORE (start printer)* ^ 


14 




EOA (end of address)* 3'^ 


7B 




EOB(endofblock)*3'S 


26 




EOT (end of transmission)^'^ 


37 




PREFIX*3'^ 


27 




CANCEL* 3 •'^ 


none 




RDR STOP*3 


35 




Teletypewriter 






EOT (punch off) 


04 




DCA (idle, not used) 


17 




PN (punch on) 


34 




TAPE ON (punch on) 


34 




LF (line feed) 


25 




CR (carrier return) 


OD 




X OFF (end of transmission) 


13 




-*- (backspace) 


16 




IBM 1056 Card Reader 






punch off 


04 


12-9-1 


horizontal tab 


05 


12-9-5 


lower case 


06 


12-9-6 


delete 


07 


12-9-7 


restore 


14 


11-9-4 


new line (carrier return 






and line feed) 


15 


11-9-5 


backspace 


16 


11-9-6 


idle 


17 


11-9-7 


blank 


40 


blank 


bypass 


24 


0-9^ 


line feed 


25 


0-9-5 


end of block 


26 


0-9-6 


prefix 


27 


0-9-7 


punch on 


34 


9-4 


reader stop 


35 


9-5 


upper case 


36 


9-6 


end of transaction 


37 


9-7 



* Applies to 1052 only 

1. For translation; not kept in lines entered from terminal 

2. To delete and replace characters in input line; not retained in lines 
entered from terminal 
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3. (1052 only) entered by pressing and holding ALTN CODING key, 
then pressing appropriate character key 

4. Prints as # ; not normally used with TSS/360 

5. Nonprinting; usually originated automatically from 1052 terminal 

6. Used in terminal-component-selection codes; not normally used 

7. Prints as -; causes cancellation by transmitting parity error; not 
normally used in TSS/360 

8. Nonprinting; usually originated automatically from 2741 terminal 
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Task Management 

LOGON identify user to system 

ZLOGON user with written identity procedure 

BEGIN logon to MTT application program 

TIME terminate execution after time interval 

EXECUTE initiate nonconversational task 

SECURE reserve private volumes for nonconversational tasks 

BACK change conversational task to nonconversational 

CANCEL stop execution of nonconversational task 

ABEND abnormally terminate task processing and restart 

ABENDREG display register contents following an abend 

USAGE print out user statistics 

EXHIBIT display BWQ activity or user task activity 

LOGOFF terminate task processing 

Data Management 

CATALOG catalog private data set characteristics 

CLOSE close user data sets 

EVV catalog private VAM data sets by volume 

DDEF define data set characteristics to system 

RET change catalog attributes of VAM data set 

RELEASE release private devices 

CDD execute prestored DDEF commands 

DELETE uncatalog private data sets 

ERASE uncatalog and free space of disk data sets 

PERMIT authorize user to share data set 

, SHARE share data set belonging to other user 

DSS? present status of cataloged data sets 

PC? present status of cataloged data sets 

POD? describe members of partitioned data set 

DDNAME? list DDNAMES 

JOBLIBS manipulate DDNAMES 

VT high-speed copy, VAM data sets to tape 

TV high-speed restore, tape data sets to VAM 

VV high-speed copy, VAM data sets to VAM 

CDS copy data set 

Character Set Selection 

K input from keyboard 

KA input from keyboard with full character set 

KB input from keyboard with lower-case character folded 

C input from 1056 card reader 

CA input from 1056 card reader with full character set 

CB input from 1056 card reader with folded character set 

Language Processing 

ASM assemble 

FTN FORTRAN compile 

PLI PL/I compile 

LNK link edit modules 
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COMMANDS 



Program Control 

LOAD load module into storage 

UNLOAD unload module from storage 

CALL pass parameters and execute module 

RUN execute module 

GO resume interrupted-program execution 

STOP stop module execution 

BRANCH continue executing at different location of module 

AT 1/ prepare for dynamic control of executing module 

REMOTE remove effects of AT 

IF provide logical control of commands 

SET change value of data or code 

DISPLAY display data or code on SYSOUT 

DUMP put displayed data in data set for subsequent printing 

QUALIFY identify module name to system 

Command Creation 

PROCDEF define user written command 

BUILTIN identify module as command processor 

Profile Management 
DEFAULT 
PROFILE 
SYNONYM 

Text Editing 

EDIT 

END 

REGION 

ENABLE 

DISABLE 

POST 

STATE 

CONTEXT 

LOCATE 

CORRECT 

REVISE 

UPDATE 

EXCERPT 

EXCISE 

INSERT 

NUMBER 

LIST 

Data Editing 

DATA 
LINE? 
MODIFY 

Bulk Output 

DMPRST 



specify change values of defaults 

change values in user profile 

change names of commands and operands 

prepare system to edit VISAM data sets 

end editing process 

specify data set region to be edited 

stop keeping history of data set changes 

keep history of data set changes 

stop keeping histor>' of data set changes 

reverse effects of changes using history data 

replace character string by another 

locate character string 

correct characters within line 

delete old lines and insert new lines sequentiall 

insert lines anywhere within data set 

insert lines from another data set 

delete lines 

add new lines sequentially 

renumber lines 

print lines on SYSOUT 

create VSAM or VISAM data set 
print line data sets on SYSOUT 
modify VISAM data set 



performs a time-shared dump or restore of VAM2 

volumes 
PRINT print data set on high-speed printer 

WT write tape formatted for high-speed printing 

PUNCH punch data set into caids 

Message Handling 

EXPLAIN provide explanatory material for messages 

PRMPT generate, exchange, or change messages 
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System Programmer Commands 

CPS* clean up public storage 

CVV catalog public VAM volume 

EVV enter VAM volumes 

LPDS* list public data sets 

NEWMSG new updates for messages 

PATCLEAR performs time-shared initialization of VAM2 disks 

PATFIX fix page assignment tabic 

RPS create public volume from private volume 

UPDTUSER update user table 

Linkage Editor Statements 

TRAITS 

COMBINE ,- ,, , , , . ., r . r ,, 

TNCf IIDF summary ot these statements and their formats follow 

rT,TXT*x,r^ command formats 
RENAME 

END 



torTSS***** userid only 
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Command Specifications 

Format command name foDowed by at least one blank or tab 

character, followed by one or more operands delimited by commas or 
tab characters; operand field may be blank 

Command Statements One or series of commands, separated by 

semicolons, read as one SYSIN record ; comments delimited by 

apostrophes can be placed before, within, or after command 

statements 

Types of Statements 

Dynamic statement containing AT command followed by 

BRANCH, GO, DISPLAY, DUMP, GO, IF, SET. 

or STOP 
Immediate statement containing no AT command; executed when 

entered 
Conditional statement containing IF command 

Data Set Modifications 

User may modify data sets when using MODIFY, DATA, FTN, ASM, LNK 
and text editing commands. 



MODIFY 



Type 

system-prompt character 

modify, correct, or enter new line 

delete line or range of lines 

review lines 

end modification 

Type 

system-prompt character 



modify, correct, or enter new line 
delete line or range of lines 
end modification 



line no., data 
D, line no., last line no. 
R, line no., last line no. 
%E 

DATA 
# (for VSAM)* ; line no. 

(for \TSAM) 
% line no., data 
% D, line no., last line no. 
%E ^ 

*VSAM data sets cannot be modified 
FTN, ASM or LNK Type 

# System prompt character 

Line no, data Modify, correct, or enter new line 

D, line no, last line no Delete line or range of lines 

Carriage return End modification 

Text Editing ^^ 

Text editor can be used to modify, correct, delete, review, and update 
VISAM data sets (see "Text Editing" commands. 

Program Control Commands (General Information) 
Expressions 



Type 


Operator 


Meaning 


Arithmetic 


+ 


addition 






subtraction 




* 


multiplication 




/ 


division 


Logical 


"1 


logical inversion or negation 




& 

1 


logical intersection 
logical union 


Relational 


> 


greater than 




< 


less than 




= 


equal to 




> = 


greater than or equal to 




< = 


less than or equal to 




"1= 


not equal to 




1> 


not greater than 




1< 


not less than 
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Variables 

Variables can be indicated with internal or external symboEc 
names, hexadecimal locations, register numbers, or dynamic state- 
ment counter. 



Types 


Examples 




External symbcrfic names — 


FORTRAN module name 


PGM 


symbols referenced at load or 


CSECT name 


PGM#C 


execution time 


PSECT name 


PGM#P 




module entry point 


PGM#E 




FORTRAN blank common 


&COM 


Internal symbolic names 


FORTRAN statement 




symbols referenced during 


numbers 


5(1) 


single assembly or compila- 


data names 




tion; they can only be 


symbols defined by 





referenced if internal symbol 
dictionary was requested 



Hexadecimal locations — 
hexadecimal address in 
user*s virtual storage enclosed 
in apostrophes and preceded 
byL 

Register numbers general 3R 

registers, indicated as nR, 
where n = 0-15 
single-precision floating 
point registers, indicated as 
nE, where n = 0,2,4, or 6 4E 

double-precision floating 
point registers, indicated as 
nD, where n = 0,2,4, or 6 6D 

Dynamic statement counter — % 
number of times dynamic state- 
ment has been executed 



ASM statements 
unnamed assembler 

language CSECT %CSECT 

FORTRAN blank common &COM 
subscripted symbols A(I,J) 

generalized form 

SYMBOL. (OFFSET,LENGTH) 

whei« offset is expression, 

length is integer 
L*value' 
L'BOOO* 
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Constants 

Types Examples 

Integers signed decimal -647 

integers +1066 

Character letters, decimal *$3.98' 

digits, and special characters, 'HOW 

enclosed in apostrophes 

Hexadecimal one or more X'1234' 

hexadecimal digits enclosed in X'9FEC3' 

apostrophes, preceded by X 

Floating point signed or 3.141 

unsigned decimal number with 3141.59E-] 
or without decimal point or 
exponents specified as 

E single-precision 31.20D+3 

D double-precision 31E-5 

Address character A A'symbol' 

followed by symbol enclosed 
in apostrophes; may be 
internal, external, or sub- 
scripted 

Definition of Operand Terms Examples 

Data locations specified as symbols, Y.CX'EDC',4) 

hex decimal locations, registers, or dynamic 

statement counter, in this format: - SYMBOL. 

(OFFSET,LENGTH), where offset is integer, 

length is expression 

Data field contiguous group of storage FLDA.FLDB 

to be dumped or displayed; indicated as 0:4R 

first location: last location 0:5E 

6:2D 



20 



Command I 

Operation 
ABEND 
ABENDREG 
ASM 



AT 

BACK 

BEGIN 



BRANCH 
BUILTIN 



CALL 



CANCEL 
C 

CA 

CATALOG 
form 1 



nstruction Set 

Operands 



NAME=object module name 
|,STORED=| J^i 

[,MACROLlBKsymbolic 
ddname, index portion 
ddname)] 

I , VERID=version identi- 
fication] 



,ISD= 



m 



[,SYML1ST=| ^ i] 

[,ASMLIST= I |[ ] 
[,CRLIST= I I ( ] 
I,STEDIT= I N ( 1 
(,ISDLIST= |n (l 

f,PMDLIST= I N [ ] 
[,LISTDS=gJj 



[,LINCR=( first line number, 
increment)] 

instruction location [,...] 
DSNAME=data set name 
application name 
[,any application 

defined parameters] 
lNSTLOC=instruction location 
NAME=command name 
{,EXTNAME=bpkd macro 

name] [,DSNAME=dsname| 
[ DSNAME=entry point 
[, module parameters] ] 



BSN=batch sequence number 

none 

none 

NAME=current data set name 



Comment 



Y-module prestored; 
N-not prestored 

default : only system 
library used 

default : listing and mod- 
ule are time stamped 

Y-produce internal 
symbol dictionar>' 
N-do not 

Y-produce symbolic list- 
ing; N-do not 

Y-produce object pro- 
gram listing; N-do not 

Y-produce cross-refer- 
ence listing; N-do not 

Y-produce edited sym- 
bol table ; N-do not 

Y-produce ISD listing; 
N-do not 

Y-produce program 
module dictionary ; 
N-do not 

Y-store all requested 
listings as list data set; 

N-print all requested 
listings on SYSOUT 

defaults: Y if convl: 

N if nonconvl 

ignored if STORED=Y 

default : (100, 100) 



f,STATE=j g I 



default: last module 
referenced by system 

iiioduii.' tunic or viihroiitiiK' 
lUiti.K , no procjdiM\' niunes. 



N-new; U-update 
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[.ACC= j g 5 1 


R-read only access; 
U-unlimited 




[,NEWNAME=new data 






set name] 


default : no name change 


CATALOG i 


GDG=generation data 


keyword must be 


form 2 


group name 


specified 




GNO=number of generations 




[,ACTION= ]g[ 1 


A-alJ generations 




removed; O-only last 




,ERASE= 1 }i \ 


Y-erase old generations 




1 N f 


N-save 


CB 


none 




CDD 


DSNAME=data set name 
1 data definition name 


n . 




» < (data definition name 
_ 1 ,-) 


I default: all referenced 
C DDEFs 


CDS 


DSNAMEl=cuiTent data set 




name 






(member name)] 






DSNAME2=new data set name 




(member name)] 






,ERASE=^^^{ 


Y-erase 
N-save 




IbaSE= first line no. ) 






M [,INCR=incrementl f 


default: no renumbering 




-'[,REPLACE=|fj] L 


default: 100 


CLOSE 


|DSNAME=data set name 1 


default: all user data sets, 
except USERLIB, are 




[,TYPE=T| 


closed 
default: normal close 




LDDNAME=data definition 


default: DSNAME speci- 




name] 


fication closed 


CONTEXT 


1 Nl=starting position] 


default: if N2 speeded, 
CLP; otherwise, first 
line 




i,N2=ending position] 


default: last line when 
Nl not specified; 
otherwise N 1 




,STRINGl=search string 






[ ,STRlNG2=replacement 






string] 


default: nuU string 


CORRECT 


[Nl-startingline] 


default: CLP 




[,N2=endingline] 


default: Nl 




[,SCOL=first column] 


default: position 




f ,CORMARK=replacemen1 


♦-duplicates above and 




correction characters] 


to right 

$-duplicates above; 
characters on right 
replace 

©-duplicates above; 
characters on replace- 
ment line replace 

%-removes above charac- 
ter 

#-replaces nonconforming 
hexadecimal 
character 




iC-character 






,CHAR= JM-mixed | 


default: C 




tH-hexadecimal _ 
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CPS* 



cw* 



DATA 



DDEF 



DDNAME? 



DISABLE 
DISPLAY 

DMPRST 



VOLUME=volsemo 

VOLUME=volsemo 

[,START= Ij^g^g address} J 

DSNAME=data set name 
[(member name)) 



default : begin ning of 
specified volume 

for VAM data sets 

default : beginning of 
specified volume 



RrYPE= 

il I 

) LINE < 

ETN 

CARD 

S 



r 



AS E= first line 
lKt'R=incre! 



nunibe 
lentl 



i 



l=iiidexed. default: 

VSAM 
default: for BASE, 100: 

for INCR. 100 



DDNAMF= i^^^^ definition name| 



IPCS OUT 



,DSORG= 



m 



,DSNAME=data set name 
[(member name)] 



JOBLlB= 






DEFAULT |operand=[value]l [,...] 
DELETE [DSNAME=data set name] 



none 

data field name I 



pin 

FROMDEV=<2314> 
12400/ 
,FRVOLlD= volume identi- 
fication 

/23in 
,TODEV=<2314 > 

12400 ' 

/ volume ^ 

,TOVOLID=< identification 
i PRIVATE / 

] 



I 



default: VI 



default : entire JFCB chain 
displayed 

default: individual data 
sets presented for 
disposition 



if defaulted, 

command canceled 

if defaulted, 

command canceled 
if defaulted, 

command canceled 



r,NEWVLID=volume identi- 



l 



fication 



[WR1TCHK={^S}] 

* Use restricted to privileged programmers 

GN28-3172 



ignored if TODEV 

is 2400 
ignored if TODEV 
is 2400 

ignored if TODEV 
is 2400 

ignored if TODEV 
is 2400 

(contifutedj 

9/15/70 
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DSS? 



DUMP 
EDIT 



EXCERPT 



EXCISE 

EXECUTE 
EXHIBIT 



3XPLAIN 



^TN 



,RUNMODE=|B^CK| 



[' 



/ data set name 
NAMES=< (data set name 

data field name (,...] 
DSNAME=data set name 
((member name) J 



1] 



ignored if task is 
nonconversationai 

default : all of user's 
data sets 



default : USERLIB 
default: no member 



ENABLE 


none 




END 


none 




ERASE 


DSNAME=data set name 


default: individual 




[(member name)] 


data sets presented 


EW 


■DEVICE=datype|||J^[ 


for disposition 




,VOLUME=(volume identi- 


1-6 decimal digits vol- 




fication [,...J) 


ume serial number 




[,USERID=user identifi- 


for o-authority pro- 




cation J 


grammer only ; 
8 ^phameric char- 
acters, first alpha- 
betic; pad with * as 
required on right 
side 
default: current user ID 



DSNAME=data set name 
[(member name)] 
[,RNAME=region name] 
[,Nl=startingline 
[,N2=ending line] ] 
{Nl= starting line] 
[,N2=endingline| 
DSNAME=data set name 



default : CLP 
default: Nl 



OPTION= < 



f BWQ 

MSGIDD 
ORIGIN 

WORD 

TEXT 

RESPONSE 

MSGE 
I MSGS 



/ALL 

^UID.userid 

,TYPE=(^^/r . ) 

^BSN.number; 



I default: preceding mes- 
sage or explainable 
words explained 



[, message 

identification} 



f 



NAME=module name 
[,STORED= I N [ 1 

[,VERID=version identi- 
fication] 

[,SLIST= 1 1 [ 1 
(,OBLIST= jjj ] 



Y-pre stored; 

N-not prestored 

default : module and list- 
ing time-stamped 

Y-produce internal sym- 
bol dictionary; 
N-do not 

Y-produce source pro- 
gram listing; N-do not 

Y-produce object 
program listing; 
N-do not 24 
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GO 
K 

KA 
KB 
IF 

INSERT 

JOBLIBS 

LINE? 



LIST 



LNK 



|,CRLIST-| n[i 
l,STEDIT=| n(i 
t,MMAP=| N [l 

f,PUBLIC=j |[] 
[XISTDS=|^|] 



[,LINCR=(first line number, 

increment)] 
none 
none 
none 
none 
condition 

[Nl=preceeding line number] 
( ,INCR= increment] 

DDNAME=data definition 

name 
DSNAME=data set name 
[(member name)] 

fline number 

ne number, ' 
line number) j 

[Nl=starting position)CLP| I 
LAST ^ 1 



r rline number \ i 

<,( first line number, > [,...] 

L \ last line number) / J 



,N2=cnding positionlLAST] 



/C-character \ -t 
il=< H-hexadecima!> 
'M-mixed ' j 



C-character 
.CHAR=< H-hexadecima!^ 
xed 
NAME=niodule name 

l,STORED=|^|j 



r,LlB=data definition name! 
L of library J 

rVT:RID=version identifi-1 
L cation J 



{,PMDUST=|^|l 



,LISTDS= 



M}] 



Y-p reduce cross refer- 
ence listing ; N-do not 

Y-produce edited sym- 
bol table; N-do not 

Y-produce memory map ; 
N-do not 

Y-inpiit contains BCD; 
N-does not 

Y-public CSECT attrib- 
ute; N-not 

Y-store all requested 
listings as list data set ; 

N-print all requested 
listings on SYSOUT 

d efaults : Y if conv'l; 

N if nonconvl 

ignored if STORED=Y 

default : (100, 100) 



default : CLP 
default: 100 



default: entire data set 

default: When N2 is 
specified, CLP; other- 
wise first line 

default : When N2 is 
specified, Nl; other- 
wise last line 

default: C 



Y-prestoTcd; N-not 
prestored 

default : last mentioned 
library 

default : listing and 
module time-stamped 

Y-p reduce internal sym- 
bol dictionary; 

N-do not 

Y-produce internal sym- 
bol dictionar>' listing; 
N_-do not 

Y-store all requested 
listings as list data set; 

N-print all requested 
listings on SYSOUT 

defaults: Y if conv'l; 

N is non conv'l 

('(r)ntiui<e(i) 25 
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r,LINCR=( first line number! 
L increment) J 

LOAD [NAME=entry point name] 

LOCATE [Nl=startingpositionl 

[,N2=ending position] 





(,STRING=search string] 


LOGOFF 


none 


LOGON 


user identification 


trailing 


,f password J 


commas 




umiecessarv 


.[addressing] 



LPDS* 



MODIFY 



,[ charge niimberl 






csect packing 



, I maximum storage] 



,[pns,ine|P{] 



VOLUME=volsemo 

SETNAME=data set name 
[(member name)] 
(,CONF=R] 

[,LRECL=record length 
,KEYLEN=key length 
,RKP=relative key position 



,RECFM=|^J 

["-HI] 



ignored if STORED=Y 

default : (100, 100) 

default : N 

default : last module 
referenced by system 

default: When N2 speci- 
fied, CLP; otherwise 
first line 

default : When Nl speci- 
fied, N 1 ; otherwise 
last line 



can only be defaulted 
nonconversationally 

specified as 24 when 24- 
bit addressing is 
needed for a task 
running on 32-bit 
machine 

default : on 24-bit ma- 
chine, 24; on 32-bit 
machine, 32 

default: will be found 
by system 

A-all CSECTs and PSECTs 

P-PSECTs only 

Oprivate CSECTs only 

X-all CSECTs, no PSECTs 

N-no packing 

default : N 

1-5 decimal digits; 

default : lesser 
of limits assigned 
at SYSGEN or JOIN 
time 

P-USERLIB opened; 

not used to form 

profile 
X-USERLl-i not opened; 

not used to form 

profile 
default : USERLIB open^ 

and used to form 

profile 

default: begmning of speci- 
fied volume 



R-review 

default : no review 

default : 132 

default : 7 

default: 4 if V, if F 

V-variable; 

F-fixed 

Y=Fortran translation function 

required 
N=no translation required 



NEWMSG 
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NUMBER {Nl=staitmglinel 

(,N2=endingline| 
(,BASE=base number] 
(,INCR=increment| 

PATCLEAR* DEVICE=|2^jU 

'^^O^^^H PRIVATE 



PATFIX 



PC? 



PERMIT 



POD? 



POST 



volume serial i 



volume must not be in 
use when command 
invoked 



RUNMODE= 



I FORE J 
tBACK* 



/(2311,voIid,...) 
VOLDEF<(2314,volid,...) 
IPUBLIC 

l,DEVCOUNT=integerI 



t--(^}] 



,KEPORTDS=data 



"] 



11 



[/ data set name 
NAMES=< (data set ^i 

\ namef,...]) ij 

i%cx! A »«r_ I data set namel 

r Uuser identi- 

LUSERID=< fication (,...]) 
L |*ALL 

l,ACCESS=R|RWlU|Rl 



1 NAME=m(xluIe name! 
I .PLJOPT=coiiipiler option 

listl 
|,PL(:'OFT=language 

controller opiionsl 
l,SOURCT:DS=sourccdata 

set name 1 
I.MER(;ELST=co!iverier 
input list I 
!. MERGE DS=converter 

input data setl 
I -MACRODS=intermediate 
data set name] 

EPRVDS=PRV table's data 

set name] 

PODNAME=data set name 

(,DATA=Y| 

I.ALIAS=Y1 



defaulj: no. of devices 
specified in user table 

default; N 

default: diagnostics 
written on system 
printer 

default : all data sets in 
catalog 



default : *ALL 

R-restricts; RO-read 
only; 

RW-read/ write; 
U-unlimited 

default:, source data set name 



default; null siring assumed 

default : no data set assumed 

default : data set created or 
value lenored 



,MODULE= 



lALL I 

I module name I 



default : not printed 
default : not listed 

1 default : no module infor- 
J mation printed 



*Use restricted to privileged propammers 



(infUimicJ) 
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PRINT 



PRMPT 



PROCDEF 
PROFILE 

PUNCH 



QUALIFY 



REGION 
RELEASE 



REMOVE 



DSNAME=^data set name 
rSTARTNO-starting byte 1 
L position J 

,ENDNO=ending byte 1 
position J 




, PRTSP= 



(,HEADER=H1 

[,LlNES=lines/page] 

l,PAGE=P] 



f ,ERASE= I 



N(- 



/ ACCEPT \" 
,ERROROPT=i SKIP } 
{ END I 

[,FORM=paper form] 

[,STATION=stationid| 



AC -ASCII char 
AD -ASCII dump 
,TAPOPT=iAE -ASCII edit 

ED - EBCDIC dump' 

EC - normal proc 

MSGID=message 

identification 
[,INSERTn=inserted 

characters [,...]] 

NAME=procedure name 

ICSW=|n(] 

DSNAME=data set name[,] 

r,STARTNO=starting byte 1 
L position J 

r,ENDNO=last byte 1 

L position J 

l,STACK={ll2l3lEDIT}l 



default : first byte 
default: last byte 

When EDIT specified, 
HEADER, LINES, 
and PAGE must not 
be specified 

default : no header 

default: 54 

default: no pages numbered 

default : N;Y=erase; 
N=save 

default: END 



default : installation 
defined 

default: terminal id in task 
common 

default: EC 



[erase={^JJ 



.ERASE= 
[,FORM=cardforml 

MNAME=[link edited module 
name.] object 
module name 

|RNAME=region name] 

DDNAME=data definition 
name 

{,DSNAME=data set name] 

r j SCRATCH l~] 

Lmhold iJ 

statement numberf ,...] 



default: no characters 
inserted 

Y-save command 
symbols; N-do not 

default: first byte 

default: last byte 

default : 1 

default: N; Y=erase,, 

N=save 

default: installation 
defined 



default : null string 
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RET 



REVISE 



RPS* 



DSNAME=data set name 



{Nl = startmg line] 
(,N2=enduig line] 
[,INCR=increment] 
|VOL=volunie serial no.) 



,UNIT=type 




P=permaJient j 
storage : 
T=temporar>' j 
storage ^ 

L= erase at | 
LOGOFF ' 
C= erase at I 
CLOSE 
U= read- write 
access 

R= read-only 
access / 

default : CLP 
default : NI 
default : 100 
default N/A if MVDS 
specified 

default : type set at 

SYSGEN 



default: 
P 

default: 
L, ifT 
specified; 
no value 
ifP 

^ default: 



,OPT = 



multivolume tape 

ddname 
multivolume public 

data set~M\T)S 



tape to public storage 
public storage to tape 
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I 


,ACV=volserno] 


valid for OPT=MVDS only 
default: currently 

mounted ACV volume 




/CONT f 


default: beginning of speci- 




,START=<DSCB addressS 


fied volume 




\ fileseqno /. 




RUN 


LOC=entry point name] 


default: performs as GO 


SECURE 


/ (TA=number of tape \ 
1 devices i 
1 [,typeoftape 1 

J device] ) [ 
\ (DA=number of direct / 
/ access devices 1 
I [, type of direct i 
\ access device]) / 




SET 


|data location=value i (,..,] 




SHARE 


DSNAME=data set name 
,USERID=owner's user ident 
fication 


i- 




i owner's j 


dcfault: *ALL 




,OWNERDS=< dsname \ 






|*ALL K 




STET 


none 




STOP 


none 




SYNONYM 


\ term=[va]ue] ( I,...] 




TIME 


|MINS=minutesl 


default: SYSGEN value 


TV 


DSNAME l=tape data set 

name 
",DSNAME2=vam data' 
set name _ 








UNLOAD 


|NAME=entry point name] 


default : last module ref- 
erenced by system 


UPDATE 


none 




UPDTUSER* 


none 




USAGE 


fUSERID=user identificatic 


jnl 3-8 characters 



default : current user ID 



VT 



Y\' 



DSNAMEl=vam data set name 
r,DSNAME2=tape data set 1 
[_ name J 

DSNAMEl=cun-ei\t data set 

name 
r,DSNAME2=new data set 1 
name I 



WT DSNAME=cunent data set 

name 
,DSNAME2=tape data set 

name 
r ,VOLUME=tape volume 1 
L number J 

{,FACTOR=blocking factor] 
f,STARTNO= starting byte! 
L position J 

r.ENDNO=ending byte 1 
L position J 

*Use restricted to privileged programmers 



default: scratch tape 
default: 30 

default : first byte 

default : last byte 

(continued) 
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,PRTSP= 



EDIT 



{,HEADER=H1 
i ,LINES-!ines/page| 
[,PAGE=P] 



[erased d}] 



when EDIT specified 
HEADER, LINES and 
PAGE must not be 
specified 

default : no header 

default : 54 

default no numbering 



default: N; Y=erase, 

N=save 



ZLOGON 



Implicit Operands 



Values of these operands built 


into user profile can b€ 


changed with 


DEFAULT command; operands control user's operating environment. 


Operand 


Function 


Default Value 


Other Values 


LIMEN 


message 


W - waming 


I - information 




severity 


messages 


X - serious error 
T - terminate error 


BREVITY 


message 


T - standard 


M - message ID 




length 


message, 


E - extended 






no ID 


S - standard 

message 


SYSIN 


input source 


K - keyboard 


C - card reader 


SYSINX 


PROCDEF. 


G - terminal 


E - source list or 




EDIT, DATA, 




terminal 




MODIFY 








and PLI 








input source 






TRANTAB 


transaction 
table 


N - inactive 


Y - active 


LINENO 


line number 


Y-will 


N - will not 




prompting 


prompt 


prompt 


ALPHABET 


character set 


1 - folded mode 


2 - fuU EBCDIC 
3-PTTC/6 
4 - PTTC/8 


DEPROMPT 


prompt 


Y - prompt for 


N - will not prompt 




during 


disposition 






ERASE/DELETE 




LPCXPRSS 


express 
mode 


N - not active 


Y - active 


REGSIZE 


maximum 
region name 
length 





1-247 



GN28''3172 9/15/70 



30 



DDEF Command or Macro Instruction 
DDEF (for luv. data s^ts) ^___ 



When XpplicaHe 
Direct \cccss I Prisait 



Public Stui age ' Private I OS\Nr 



Operands 



VAM JOBL.IB i \ .\M JOBLIB l)\ f A 



DDNAMi' Hiatal dctinilion name I X : 
|.DSOR(.'--data sot oreani/ationl' '^','j^ ' 










-integer 
,NL 






\ 

X 



X 

\s 
\'i 
\v 

X 



\l L J 

\.R\ !PI) = integLT /J X ' X 

nisp-Mwi r""x i X 

.('PllON-JOBI !Bi ' ■ X 

Rl 1 oHk-i [" X ' X 



\! X ^ 
I's; i>s 
\1 X ' 



X 
X 



X ! X' X 1 
X ' X ' 

! - i 

. -\ I 

I 1 -I 

X ! X i 

X : Xl ^ 

X I xt j 



I i ■' 

"^ ! "^^ \j 

X ■ x 1 x , 

X I X 1 X ^ 



X X ! 

x[ \\ 
X ■ X j 
X ' X ' 



rxTx 



! x; X 

X X , X 

X * XX 

X ^ 

\1 _i^__ 



1. K.e>svurd not used for macro instructions. lor PCS dumps, use PCS 
our ddname. 

2. Keyword not used with DDEF macro instruction. 
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DDEFlforoId 


ex 


sting data sets) 




















Operands 




When 


Applicable 




VAM 


BSAM or QSAM 


Cataloged 


Cat. 


Uncat. 


VAM 


JOBLIB 


DA 


TA 


DA 


TA 


■ 

DDNAME^data definition name 
|,DSORG=data set organization | 
,DSNAME= l^ym^ol I 
j*symbolj 
1 ,DC B={ . BU FO F F=a bsex p ,DEN= 
integer,...)} 


X 


X 


X 


X 


X 


X 










PS 


PS 


1^ 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


* 


* 










[ / 

.UNIT= 

\ 


DA -^^^"f 
.23141 

T,A[,tape type| 

sda-X'cuu' 


\ 
/ 












X 












X 














X 












X 


- r TRK \1 . 

Ah \ 

SPACE=I '-^record length-'-' 
1 ,primar>' 
\ I , secondary j / 
^ LHOLDl 














X 


X 


X 




X 




,VOLUME=| 


r 


PUBLIC -| \ 
PRIVATE \ 
vols'eqno J 1 

" PRlVATEjir 1 1 
voiserno | ,... / 
















X 


X 


X 


X 










X 


X 






V 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


/ f I'ileseqno-integer] \ 












X 


.LABEL=I 


Jabeltype- 1 SL i 
AUL^ 












X 


X 










X 


X 










X 


X 










X 


X 










X 


X 


\f,RETPD=integer / ^ 


X 


X 


X 


X 


X 


X 




X 


X 


X 


X 


X 


X 






X 


X 


X 


X 




X 














X 


X 


X 


X 


|,RET-codes 


1 












X 


X 











*See DCB macro instruction in ASSEMBLER section for other DCB subparameters. 
**Must be specified here 
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Linkage 

TRAITS 

COMBINE 

INCLUDE 
(form 1) 
INCLUDE 

(form 2) 

INCLUDE 

(form 3) 

RENAME 



END 



Editor Statements 

Redefines control-section attributes, which must be 
identical when sections are combined. 
Combines two or more control sections of one module 
into one control section. 

Obtains program modules from libraries; places them in 
one output module. 

Scans user library or JOBLlBs to locate modules that 
resolve all unresolved external symbol definitions in out- 
put module. 

Scans user library or JOB LIB s to locate modules that 
resolve external symbols that user did not specify as 
being unresolved. 

Deletes or renames control section names and entry 
point names, and renames external references to be 
included in output module. 

Indicates end of linkage editor control statements for 
current run; linkage editor statements are then executed; 
remaining unresolved references and those resolvable 
from SYSLIB wiU be listed in separate diagnostic 
messages. 



Statement Formats 



Operation 


Operands 


control 

statement 

name 


one or more operands, delimited by commas; field 
may be blank. 


TRAITS 


csname 


'({VARIABLE] [, READONLY] 
[, PUBLIC] [,PROTO] 
{,COMMON]|,PRVLGDl 
(, SYSTEM]) 




COMBINE 


csname,... 


RENAME 


/extrefi, (extrefa) \ 
<epnamei ((epname2)l> [,...] 
' csnamej [(csname2)] / 


INCLUDE 
(Form 1) 


I ddname], (module [,...]) 


INCLUDE 

(Form 2) 


ddname 


INCLUDE 

(Form 3) 


ddname- (extref[,...] ) 


END 


always blank 



Statements must not exceed 256 characters 

Operands 

csname = control section name in first module mentioned in next 

form-1 INCLUDE statement 
module = name of object module to be included 
ddname = symbolic name of library to be searched; specified as 

SYSLIB, USERLIB or symbolic name of DDEF command (or 

macro instruction) for JOBLIBs 
extref = external symbol reference 
epname = entry point name 
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LANGUAGES 



assignment 
statement 



PREPROCESSOR STATEMENT FUNCTIONS 

%ACTIVATE activates identifier previously defined by %DECLARE 
that had ^DEACTIVATE issued against it; makes 
identifier eligible for replacement by current prepro- 
cessor-assigned values. 

used to evaluate preprocessor expressions and assign 
results to preprocessor variable (i.e., ^variable = 
expression) 

%DE ACTIVATE makes identifier ineligible for replacement by prepro- 
cessor-assigned values when it appears in subsequent 
non-preprocessor (source) statements. 

%DECLARE establishes identifier as preprocessor variable or pro- 
cedure name and activates the identifier for replace- 
ment. 

%DO used with %END to delimit a preprocessor DO-group; 

compiles each iteration of groups procedure or com- 
piles conditionally using %IF, %THEN, and %ELSE. 

%end delimits end of %DO-group or ^PROCEDURE pro- 

cedures 

%G0 TO causes compiler scan to be transferred unconditionally 

to a non-sequential preprocessor statement for sub- 
sequent compilation. 

%INCLUDE retrieves source program text from a library (POD) 
and incorporates it into the PL/I program being 
compiled. 

%NULL provides transfer points for %GO TO statements; no 

operation is performed. 

%PROCEDURE used in conjunction with %END to delimit prepro- 
cessor procedure; usually to create a functional pro- 
cedure for compilations. 

RETURN returns a value and control back to point from which 

preprocessor procedure was invoked; no % sign is 
necessary. 
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PL/I 



PREPROCESSOR STATEMENT FORMATS 

%Pabel:] ... ACTIVATE identifier [identifier] ...; 

%assignment statement 

%[label:] ... preprocessor-variable=preprocessor-expression; 

%Pabel:] ... DEACTIVATE identifier [,identifier] ...; 

%[label:]... DECLARE identifier 

I FIXED I CHARACTER entry-declaration} 
[,identifier|FIXED CHARACTER 
entry-declaration |] ...; 

where entry -declaration is: 
ENTRY [([CHARACTER I FIXED] 

[, [CHARACTER] FIXED] ] ...)] 
RETURNS(CHARACTER| FIXED) 

%[-e,:,... DO [-'K?:3^!?^™^|}]] 

where i=preprocessor variable 

ml ,m2,m3=preprocessor expressions 
%[label:]... END [label]; 

%[label:]... |G0T0) label; 

%[label:] ... IF pre processor -expression 

%THEN preprocessor-clause 1 
[%ELSE preprocessor-clause2] 

%[label:]... INCLUDE |ddnamel (member-name 1)> 

( member-name 1 f 



r j ddname 2 (member-name 2) 
[_' ( member-name 2 
%null statement 

%[label:] ...; 
%label: [label:] ... PROCEDURE [(identifier [,...] ...)] 

'RETURNS (CHARACTER! FIXED)'; 
[label:]... RETURN (preprocessor-expression); 



)] 
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PLI STATEMENT FUNCTIONAL GROUPS 

Descriptive statements 

DECLARE explicitly declares attributes of names 

FORMAT specifies format list to control fomiat of data being 

transmitted 

OPEN allows certain attributes to be specified for a file name 

in addition to opening that fOe for processing 

Input/Output statements 

RECORD I/O transfer statements 

READ transmits record from files opened for INPUT or 

UPDATE to a variable or buffer 

WRITE makes RECORD transmission of record from a varia- 

ble in internal storage to OUTPUT or UPDATE file 

REWRITE for UPDATE files, it replaces existing record in data 

set 

LOCATE for buffered output files; allocates based variable in a 

buffer; may also transmit previously allocated based 
variable 

DELETE deletes record from UPDATE file 

STREAM I/O transfer statements 

GET makes stream transmission of data from external 

source (i.e., data set, terminal, or SYSIN log) or 
internal source (i.e., character string variable) to one 
or more variables 

PUT makes stream transmission of data from one or more 

internal storage locations to a data set on external 
medium (i.e., data set, terminal, or SYSPRINT) or to 
an internal receiving field (i.e., character string varia- 
ble) 

I/O control statements 

OPEN opens file by associating name of file with data set; 

can also complete attribute specifications for file 

CLOSE dissociates file from data set previously associated 

with by opening current task 

Terminal I/O statements 

DISPLAY displays message at user's terminal; optionally requests 

a response 

Data Movement and Computational statements 

assignment assigns a value to one or more variables 

GET with STRING option; values of string are assigned to 

specified variables 

PUT with STRING option ; values of specified variables are 

concatenated into string and assigned as the value of 
the specified string 

Control Statements 

GO TO transfers control to specified location 

IF tests value of an expression, and controls fiow of 

execution based on results 

DO specifies repetitive execution of statements within 

DO-group 

CALL transfers control to specified procedure 
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RETURN terminates execution of procedure containing RE- 

TURN; returns to invoking procedure or task 

END terminates blocks and groups 

STOP immediately temiinates major task 

EXIT terminates execution of task containing EXIT 

WAIT issued during activation of block to delay further 

execution until certain specified events are completed 

null causes no action; label of null statement used in 

conjunction with the CHECK condition 

Exception Control Statements 

ON specifies action upon exception-condition interrup- 

tions as user-defined or standard-system procedure 

REVERT used in block to cancel effect of one or more ON 

statements previously executed in that block; reestab- 
lishes action specifications in force when block was 
activated 

SIGNAL simulates occurrence of intermption for specified 

condition; can be used to test current action specifica- 
tion for that condition 

Program Structure Statements 

PROCEDURE heads a procedure; defines primary entry point, 
parameters (if any), attributes of any value returned 
by procedure, and any special characteristics of the 
procedure 

specifies secondary entry point of procedure 

heads and identifies a begin block 

terminates blocks of groups 

specifies the statements contained within a DO-group 
are to be considered as an entity for purposes of flow 
or control 

allocates storage for specified controlled or based data, 
independent of block boundaries 

frees storage allocated for specified based or control- 
led variables (see ALLOCATE) 



ENTRY 
BEGIN 
END 
DO 

ALLOCATE 

FREE 
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PL/t STATEMENT FORMATS 



ALLOCATE option 1 

[level I identifier {dimension} |a!tributc| ... 
|,|level| ideniitlcr [dimension] fattribute) ...| -.; 
t>ption 2 

bascd-vaiiable-ideiitifier fSEK pointer-variable)] 
[IN (area-variable)] 

|. based-variable-identifier (SLT( pointer-variable) 
[IN (area-variable 1 1 j...; 

assignment statement 

option I (element-assignment) 

lelenient-variabie) , , , 

< , ■ , , >.... =element-expression; 

^psucdo-variable | 

option 2 (array assignment) 



BEGIN 
CALL 
CLOSE 
DECLARE 

DELAY 
DELETE 

DISPLAY 



DO 



iarray-variable 
^psuedo-variable 



(^structure-expression [,BY NAME 
[,...| = I array-expression [.BY NAME] 
r element-expression 



option 3 (strudure assignment) 

.... 1 ^ structure-expression f,BY NAME] i 
structure-variable .... = { , r . ii . 

I element-expression ) 

[ORDER] REORDER! ; 

entry-name [(argument [,...] ...)| 
FILE( file-name) [,FILE( file-name)] ...; 

[structure-level] identifier f( [lower-bound:upper bourid[,...] ...)] 

iltnbutesll l.{...|] ...] .... 
note: attributes may be data, entry, array, file, scope, or storage type 
(element-expression) 
FILE (tile-name) 
[KEY (expression)] 
[EVENT (event-variable)] ; 
option I 

(element-expression); 
option 2 
(element-expression) 

REPLY (character-variable) 
[EVENT (event-variable)]; 
option 1 



option 2 

WHILE (element-expression) ; 

option 3 

(pseudo-variable ) -<- ^ r i 

< ,, > =speciiication ,..J. 

(variable f *^ 

where specification is: 



expression I fi™ e^Pr«sion2 [BY expressions] i] 
Ll^BY expressions [TO expression2] |J 



END 

entry statement 



[WHILE (expression4)l 
[label] ; 

entry-name: [entry-name:]... 
ENTRY [(parameter [,...]...)] 
[RETURNS (attrubute...)] ; 



41 



FORMATS 

label: [label; J FORMAT (format-list): 

where format-list items are: 
data format items 

character string A [(field-width) J 

binarj'- bit string B [(field-width)] 

complex data item C( real-format-item [, real-format-item |) 

decimal lloating point E( field- width, number-of-fractional-digits) 

[,number-of-significaJit-digitsJ) 
decimal fixed point F( field-width (, numbcr-of-fractional-digits 

[,scaling-factor] ]) 
spacing character X( fie Id- width) 

numeric data or 
character string picture P'picture specification' 

where picture characters are: 

CHARA CTER -STRING SFECIf/ERS 

X position may contain any character 

A any alphabetic or blank 

9 any digit or blank 

ARITHMETIC DIGIT and POINT SPECIFIERS 

9 any decimal digit 

V assumed point and subfield delimiter 
ZERO SUPPRESSION CHARACTERS 

Z digit or blank (leading zeros) 

* digit or * (leading zeros) 

Y digit or blank (all zeros) 

STA TIC or DRIFTING CHARA CTERS 
(These are also zero suppression characters) 
$ digit, S, or blank 

S digit, ±, or blank 

+ digit, +, or blank 

digit, -, or blank 
INSER TION CHA RA CTERS 

if zero suppression and no preceding digit, 
a blank, an asterisk, or a drifting character 
appears 

same as comma 
/ same as comma 

B blank 

CREDIT. DEBIT, and O VERPLfNCHED SIGNS 
CR CR if field <0 
DB DB if field <0 
T di;it will be overpunched by sign 

I digit will be overpunched by + if field ^=0 

R digit wiU be overpunched by - if field <0 

EXPONENT SPECIFIERS 
K assumed start of exponent 
E start of exponent (letter E appears) 

SCALING FACTOR 
F (optionally signed decimal-integer-constant) 

moves point the specified number of places 
right if +, or left if - 
remote format items 
R(statement-label-des%nator) 
control format items 
COLUMN (character-position) 
LINE(line-number) 
PAGE 

SKIP[(relative-position-of-next-line)] 
FREE option 1 

controlIed-variable[,. ..]...; 
option 2 

[pointer-qualifier - >] 
based-variable (IN(area-variable)] 
[, I pointer-qualifier - >] 
based-variable (IN( area-variable)] ] ...; 
GET option-list; 

where option-list is: 

[FILE(fUename) f STRlNG(character-string-name)] 

ti EDIT (data-list)(format-list) 1 1 
lata-specification i ((data-list)(format-list)l ...V j 

I LIST(data-list) I 

* DATA [(data-list) J -J 

[COPY] [SKIP [(expression)] ] 
goto) /label-constant \ 

GOTO I I element-labeJ-variable f ' 

IF element-expression 

THEN unit! 

[ELSE unit2| ; 42 

note: unitl and unit2 may be statements, nested IFs, etc. 



null statement 
ON 



procedure statement 

entry-name: 
[entry-name:]... 



REVERT 
REWRITE 



STOP; 
WAIT 



variable 

FlLE(nie-name) (SET(pointer-variable)| 

IKEYFROM(expression)j ; 

[label;}...; 

condition ISNAP] { SYSTEM; I on-unit| 

where conditions are; 



original status 



AREA 

CHECK(name-Iist) 

CONDITION( identifier) 

CONVERSION{or CONV) 

ENDFILE 

ENDPAGE 

ERROR 

FINISH 

FIXEDOVERFLOW(or FOFL) 

KEY 

NAME 

OVERFLOW(or FOFL) 

RECORD(fUe-name) 

SIZE 

SUBSCRIPTRANGE 

STRINGRAiNGE 

TRANSMIT(rile-name) 

UNDEFINEDFILE{ filename) 

Cor) 

UNDERFLOW(or UFL) 

ZERODIVIDE(or ZDIV) 

FlLE(file-name)[ options-group] 

[ ,FlLE(tTle-name) [options-group] } 

where option-group is: 

(DIRECT I SEQUENTIAL] 

[BUFFERED | UNBUFFERED] 

[STREAM I RECORD] 

[INPUT I OUTPUT I UPDATE ) 

(KEYED) [EXCLUSIVE] 

[BACKWARDS] 

j TITLE{element-expression) ) 

[PRINT] 

[ LINESlZE(element-expression)] 

[PAGESIZE(eIement-expres.sion)] 



changing prefix 

NOCHECK 

NOCONVERSION 

NOFIXEDOVERFLOW 



NOOVERFLOW 

NOSIZE 

NOS UBSCRIPTR ANGE 

NOSTRINGRANGE 



NOUNDERFLOW 
NOZERODIVIDE 



..)] 



in)]l 



PROCEDURE|(pardmeter(,...| . 

[OPTIONS(option-list)] 

[ RECURSIVE] [RETURNS(attribute.) J 

[ORDER I REORDER] 

FILE(file-name) 

STRlNG(character-string-variable) 

[i EDIT(data-nst)(format-list) 
data-specification / [(data-list)(format-list)] . 

I LlST(data-list) 
' DATA [(data-list)] 
[COPY] 

[PAGE [ LINE(element-expressioi 
SKIP [(element-expression)] 
LINE(element-expression); 

option- list; 

where option-list is; 

FlLE(file-name) 

cr-r, -4 ■ . , ..nKEY(cxpression) 

SET(pointer-var,able)LiKEYTO(character-strini 
IGNORE( expression) [EVENT{ event-variable) J 
option 1 

option 2 

(expression); 

condition; 

note: see ON statement for condition options 

FILEC file-name) 

[FROM( variable)] 

[KEY{element-expression)] 

I EVENT( event-variable) } ; 

condition; 

note: see ON statement for condition options 



ariabte) J] 



(event-name |, event-name] ...) 
((element-expression)] ; 
FILE(file-name) FROM( variable) 
[KEYFROM(element-expression)] 
[EVENT(event-variable)] ; 
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BUILT-IN FUNCTIONS AND PSEUDO VARIABLES 

Computational 

BIT 
BOOL 
CHAR 
HIGH 



INDEX 

LENGTH 
LOW 

REPEAT 

STRING 

SUBSTR 

UNSPEC 

Arithmetic 

ABS 
ADD 
BINARY 
CEIL 

COMPLEX 

CONJG 

DECIMAL 

DIVIDE 
FIXED 

FLOAT 

FLOOR 

IMAG 

MAX 

MIN 

MOD 

MULTIPLY 
PRECISION 
REAL 

ROUND 

SIGN 

TRUNC 

Mathematical 

ATAN 

ATAND 



convert specified value to bit string 
perform Boolean operation on two bit strings 
convert given value to character string 
forms character string of specified length from highest 
character in collating sequence 

search specified string for specified bit or character 
string configuration 
find string length of given value 

form character string of specified length from lowest 
character of collating sequence 

concatenate specified string with itself a specified 
number of times to form new string 
concatenates all elements in an aggregate variable into 
single string element 

extract a substring of specified length from a given 
string (also a pseudo variable) 

return bit string that is the internal coded representa- 
tion of specified value (also pseudo variable) 



return absolute value of specified value 
return sum of two numbers with specified precision 
convert value to binary equivalent 
get smallest integer greater than or equal to specified 
value 

form complex number from two given real values (also 
pseudo variable) 

find conjugate of complex number (i.e., sign of 
imaginary portion reversed) 

convert given value to decimal base of specified 
precision 

divide two specified numbers to specified precision 
convert value to fixed-point scale with specified 
precision 

convert number to floating-point scale with specified 
precision 

determine largest integer that does not exceed speci- 
fied value 

search specified string for specified bit or character 
string configuration (also pseudo variable) 
extract value of highest valued expression from set of 
two or more expressions 

extract value of lowest valued expression from set of 
two or more expressions 

perform division (ignoring s^ns) and extract remain- 
der resulting from division of one real number by 
another 

multiply two numbers to specified precision 
convert value to specified precision 
extract real part of complex number (also pseudo 
variable) 

round given expression at specified digit 
determine if value is positive, negative, or zero 
truncate value to an integer 

find arctangent of X or X/Y and express result in 

radians 

find arctangent of X or X/Y and return result in 

degrees 
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ATANH find inverse hyperbolic tangent of given value 

COS find cosine of an angle expressed in radians 

COSD find cosine of specified real value in degrees 

COSH find hyperbolic cosine of specified value 

ERF find error function of given real value 

ERFC find complement of error function for specified real 

value 

EXP raise 'e^ (the base if natural logarithm system) to given 

value 

LOG return natural logaritlmi (i.e., base e) of specified value 

LOG 10 find base 10 common logarithm of specified value 

LOG 2 find binary logarithm of specified value 

SIN return sine of specified value expressed in radians 

SIND find sine of given real value in degrees 

SINK find hyperbolic sine of specified value 

TAN return tangent of specified value in radians 

TAND return tangent of given real value, expressed in degrees 

TANH return hyperbolic tangent of specified value 

Array Manipulation 



ALL 



ANY 



DIM 



HBOUND 



LBOUND 



POLY 

PROD 
SUM 

Condition Indications 



DATAFIELD 



tests all bits in bit string array to determine if 

corresponding bits of given array elements are all I's 

tests the bits in bit-string array to determine if at least 

one of the corresponding bits of the given array 

elements is set to 1 

find current extent for specified dimension of given 

array 

find current upperbound for specified dimension of 

given array 

find current lower bound for specified dimension of 

given array 

form polynomial from two given arguments and return 

value of that polynomial 

return product of all the elements of a given array 

find sum of all elements in given array 



extract contents of datafield that caused NAME 
condition to be raised 

extract character that raised a CONVERSION condi- 
tion (also pseudo variable) 

determine type of interruption that caused on-unit to 
become active 

u^d in any on-unit entered due to abnormal comple- 
tion of input/output event to determine number of 
intermptions (including current one) remaining to be 
handled 

determine name of file for which input/output or 
CONVERSION condition was raised 
extract value of key for record that caused an 
input/output or CONVERSION condition to be raised 
determine entry point to procedure in which ON 
condition is raised 

extract contents of field being processed when CON- 
VERSION condition was raised (also pseudo variable) 

Based Storage Functions 

ADDR determine location of specified variable 

EMPTY clear an area of storage (defined by an area variable) 

by effectively freeing all aUocations within the area 
NULL return a null pointer value that cannot identify any 

allocation 
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ONCHAR 



ONCODE 



ONCOUNT 



ONFILE 
ONKEY 
ONLOC 
ONSOURCE 



NULLO return a null offset value to indicate that an offset 

variable does not currently identify an allocation. 
Miscellaneous Functions 

ALLOCATION determine if storage is allocated for specified control- 
led variable 

COUNT determine number of data items transmitted during 

last GET or PUT operation on specified file 

DATE determine years, month, and day of current date 

LINENO find current line number for file having PRINT 

attribute 

TIME determine current time in hours, minutes, seconds, 

and milliseconds 
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PL/I KEYWORDS AND THEIR USES 

(includes Built-in Function Formats) 



Keywords 

ABS(x) 

%ACTIVATE or %ACT 

ADD(x,y,p[,q]) 

ADDR(x) 

ALIGNED 

ALL(x) 

ALLOCATE 

ALLOCATION(x) 

ANY(x) 

AREA 

AREAl(size)] 

ATAN(xl,y]) 

ATAND(x[,yl) 

ATANH(x) 

AUTOMATIC or AUTO 

BACKWARDS 

BASEDCpointeirvariable) 

BEGIN 

BINARY or BIN 

BINARY or BIN (x|,p[,ql }) 

BIT(length) [VARYING] 

BIT(expression [,size]) 

BOOL(x,y,w) 

BUFFERED or BUF 

BUFFERS(n) 

BUILTIN 

BY 

BY NAME 

CALL entry-name 

CElL{x) 

CHAR(expression [,size]) 
CHARACTER or CHAR 

(length) [VARYING] 
CHECK(name-list) 
CLOSE 
COBOL 

COLUMN or COL(w) 

COMPLETION(event-name) 

COMPLEXCor CPLX) 

COMPLEX or CPLX(a,b) 

CONDITION(name) 

CONJG(x) 

CONSECUTIVE 

CONTROLLED or CTL 

(poin ter-variable) 
CONVERSION or CONV 
COPY 
COS(x) 
COSD(x) 
COSH(x) 
COUNT(file-name) 



Use of Keywords 

built-in function 

preprocessor statement 

built-in function 

built-in function 

attribute(data) 

built-in function 

statement 

built-in function 

built-in function 

condition 

attribute (data, program control) 

built-in function 

built-in function 

built-in function 

attribute (storage) 

attribute(file), option of OPEN 
statement 
attribu te( storage) 
statement 

attribute (data, arithmetic) 
built-in function 
attribu te( data, string) 
built-in function 
built-in function 
attribute(file) 

option of ENVIRONMENT attri- 
bute 

attribu te(entry) 
clause of DO statement 
option of the assignment state- 
ment 

statement or option of INITIAL 
attribute 
built-in function 
built-in function 

attribu te(data, string) 
condition 
statement 

option of ENVIRONMENT attri- 
bute 

format item 

built-in function, pseudo-variable 
attribute (data, arithmetic) 
built-in function, pseudo-variable 
condition 
built-in function 

option of ENVIRONMENT attri- 
bute 

attribu te(storage) 

condition 

option of GET statement 

built-in function 

built-in function 

built-in function 

built-in function 
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CTLASA 
CTL360 

DATA 

DATAFIELD 

DATE 

%DEACTI VATE or %DEACT 

DECIMAL or DEC 

DECIMAL or DEC(x[,p|,ql ]) 

DECLARE or DCL 

%DECLARE or %DCL 

DEFINED or DEF base-identifier 

K subscript-list 
POSITION 

DELAY(n) 
DELETE 
DIM(x,n) 
DIRECT 
DISPLAY 
DIVIDE(x,y,pl,qJ) 
DO 
%DO 
EDIT 
ELSE 
%ELSE 
EMPTY 
END 
%END 

ENDFILE(file-name) 
ENDPAGE (file-name) 
ENTRY [ (parameter-attribute- 
list)!!....! 
ENVIRONMENT or ENV 
ERF(x) 
ERFC(x) 
ERROR 
EVENT* 



EXCLUSIVE 
EXIT 
EXPCx) 
EXTERNAL or EXT 

F(block-size [, record-size ] ) 

FILE 

FILE(file-name) 



FINISH 

FIXED 

FIXED(x(,p[,q]l) 

FIXEDOVERFLOW or FOFL 

FLOAT 

FLOAT(xl,pl,q]J) 

FLOOR(x) 

FORMAT(format-list) 

FREE 

FROM(variable) 



;r 

}] 



option of ENVIRONMENT Attri- 
bute 

option of ENVIRONMENT attri- 
bute 

STREAM I/O transmission mode 

built-in function 

built-in function 

preprocessor statement 

attribute (data,arithmetic) 

built-in function 

statement 

preprocessor statement 

attribute(data) 



statement 

statement 

built-in function 

attribute(file) 

statement 

built-in function 

statement 

preprocessor statement 

STREAM I/O transmission mode 

clause of IF statement 

clause of %IF statement 

built-in function 

statement 

preprocessor statement 

condition 

condition 

attribute(entry) or statment 
attribute(file) 
built-in function 
built-in function 
condition 

option of CALL, READ, WRITE, 
REWRITE, and DELETE state- 
ments, attribute (data, program 
control) 
attribute(file) 
statement 
buUt-in function 
attribute (data,scope) 

option of ENVIRONMENT attri- 
bute 

attribute(file) 

option of GET and PUT state- 
ments, specification of RECORD 
I/O statements 
condition 

attribute (data, arithmetic) 
built-in function 
condition 

attribu te(arithme tic) 
built-in function 
built-in function 
statement 
statement 

option of WRITE or REWRITE 
statements ^o 



G (max-message-size) 

GENERIC entry-name- 
declaration (,...1 ...) 
GENKEY^ 

GET 

GO TO or GOTO 

%GOTOor%GOTO 

HBOUND(x,h) 
HIGH(i) 

IF 

%1F 

IGNORE(n) 

IMAG(x) 

IN 

%INCLUDE 

INDEX(string,configuration) 

INDEXAREA^ 

INDEXED 

INITIAL or INlT(item[,itemI ...) 
INITIAL CALL 

entry name [argument-list] 
INPUT 

INTERNAL or INT 
INTO(variable) 

KEY(file-name) 
KEY(x) 

KEYED 

KEYFROM(x) 
KEYTO(variable) 
LABEL [ statement-label- 

constant[,.,.J ..,)| 
LENGTH(string) 
LBOUND(x,n) 
LEAVE 

LIKE structure-variable 
LINE(w) 

LINENO(file-name) 

LINESIZE(w) 

LIST 

LOCATE 

LOG(x) 

LOG2(x) 

LOGlO(x) 

LOW(i) 

MAIN 

MAX(xi,X2,...,Xn) 
MIN(xi,X2,...,Xn) 
MOD(xi,X2) 
MULTIPLY(xi,X2,pl,ql) 



option of ENVIRONMENT attri- 
bute 

attribute(entry) 

option of ENVIRONMENT attri- 
bute 

statement 
statement 
preprocessor statement 

built-in function 
built-in function 

statement 

preprocessor statement 
option of READ statement 
buUt-in function, pseudo-variable 
option of ALLOCATE and FREE 
statements 

preprocessor statement 
built-in function 

option of ENVIRONMENT attri- 
bute 

option of ENVIRONMENT attri- 
bute 
attribute(data) 

atribute(data) 

attribute{file), option of the 

OPEN statement 

attr ibu te( scop e,d ata) 

option of READ statement 

condition 

option of READ, DELETE, and 

REWRITE statements 

attribute(file), option of OPEN 

statement 

option of WRITE statement 

option of READ statement 

attribute(data, program control 
built-in function 
built-in function 

option of ENVIRONMENT attri- 
bute 
attribute 

format item, option of PUT state- 
ment 

buOt-in function 
option of OPEN statement 
STREAM I/O transmission mode 
statement 
buOt-in function 
built-in function 
built-in function 
built-in function 

option of PROCEDURE state- 
ment 

built-in function 
built-in function 
built-in function 
built-in function 
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NAME(file-name) 
NCP(n) 

NOCHECK 

NOCONVERSION or NOCONV 

NOFIXEDOVERFLOW 
or NOFOFL 

NOLOCK^ 
NOOVERFLOW or NOOFL 

NOSIZE 

NOSTRINGRANGE or NOSTRG 

NOSUBSCRIPTRANGE 
orNOSUBRG 

NOUNDERFLOW or NOUFL 

NOWRITE^ 

NOZERODIVIDE or NOZDIV 



condition 

option of ENVIRONMENT attri- 
bute 

condition prefix identifier (dis- 
able CHECK) 

condition prefix identifier (dis- 
ables CONVERSION) 

condition prefix identifier (dis- 
ables FIXEDOVERFLOW) 
option of READ statement 
condition prefix identifier (dis- 
ables OVERFLOW) 
condition prefix identifier (dis- 
ables SIZE) 

condition prefix identifier (dis- 
ables STRINGRANGE) 

condition prefix identifier (dis- 
ables SUBSCRIPTRANGE) 
condition prefix identifier (dis- 
ables UNDERFLOW) 
option of ENVIRONMENT attri- 
bute 

condition prefix identifier (dis- 
ables ZERODIVIDE) 



NULL 


built-in function 


NULLO 


built-in function 


OFFSET(area-name) 


attribute(data, program control) 


ON 


statement 


ONCHAR 


built-in function, pseudo-variable 


ONCOUNT 


built-in function 


ONCODE 


built-in function 


ONFILE 


built-in function 


ONKEY 


built-in function 


ONLOC 


built-in function 


ONSOURCE 


built-in function, pseudo-variable 


OPEN 


statement 


OPTIONS(iist) 


option of PROCEDURE state- 




ment 


ORDER 


option of PROCEDURE and BE- 




GIN statements 


OUTPUT 


attribute(file), option of the 




OPEN statement 


OVERFLOW or OFL 


condition 


PAGE 


format item, option of PUT state- 




ment 


PAGESIZE (w) 


option of OPEN statement 


PICTURE or PIC 





I 'character-picture-specification' \ 
t 'numeric-picture-specification' f 

POINTER or PTR (aiea-variable) 

PENDING^ 

POLY(a,x) 

POSITION or POS(i) see DEFINED 

PRECISION or PREC(x,pl,q]) 

PRINT 

PRIORITY *(x) 
PRIORITY ' [ (task-name) 1 



attribute(data, string) 

attribute(data, program control) 

condition 

built-in function 

attribute(data) 

built-in function 

attribute(file), option of OPEN 

statement 

opfion of CALL statement 

built-in function, pseudo-variable 
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PROCEDURE or PROC 
%PROCEDURE or %PROC 
PROD(x) 
PLIT 

R^ (maximum-record-size) 

READ 
REAL 
REAL(x) 
RECORD 

RECURSIVE 

REENTRANT 

REFER 
REGIONAL^ 

REORDER 

REPEAT(string,i) 
REPLY(c) 
RETURN 
RETURNS(attribute) 



REVERT 
REWIND 

REWRITE 
ROUND(x,n) 



statement 

preprocessor statement 
built-in function 
statement 

option of ENVIRONMENT attri- 
bute 

statement 

attribute(data, arithmetic) 
built-in function, pseudo-variable 
attribute(file), option of OPEN 
statement 

option of PROCEDURE state- 
ment 

option of PROCEDURE state- 
ment 

option of BASED attribute 
option of ENVIRONMENT attri- 
bute 

option of PROCEDURE and BE- 
GIN statements 
built-in function 
option of DISPLAY statement 
statement 

attribute(entry), option of PRO- 
CEDURE and ENTRY state- 
ments 
statement 

option of ENVIRONMENT attri- 
bute 

statement 
built-in function 



SEQUENTIAL or SEQL 


attribute(file) 


SET(pointer-variable) 


option of ALLOCATE, LO- 






CATE, and READ statements 


SlGN(x) 




built-in function 


SIGNAL 




statement 


SIN(x) 




built-in function 


SIND(x) 




built-in function 


SINH(x) 




built-in function 


SIZE 




condition 


SKIP|(x)l 




format item, option of GET and 
PUT statements 


SNAP 




option of ON statement 


SQRT(x) 




built-in function 


STATIC(pointer- 


variable) 


attribute{storage) 


STATUS(event-name) 


buUt-in function, pseudo-variable 


STOP 




statement 


STREAM 




attribute(fUe), option of OPEN 
statement 


STRING(x) 




built-in function, pseudo-variable 


STRINGRANGE 


or STRG 


condition 


STRING(string-name) 


option of GET and PUT state- 






ments 


iSUB 




dummy variable of DEFINED at- 
tribute 


SUBSCRIPTRANGE or SUBRG 


condition 


SUBSTR(string,i| 


[J]) 


built-in function, pseudo-variable 


SUM(x) 




built-in function 


SYSIN 




name of standard system input 
file 


SYSPRINl 




name of standard system output 
file 


SYSTEM 




option of the ON statement gj 



TAN(x) 


built-in function 


TAND(x) 


built-in function 


TANH(x) 


built-in function 


TASK^ 


attribute (data, program control), 




option of PROCEDURE state- 




ment 


TASK^ [(task-name)] 


option of CALL statement 


THEN 


clause of IF statement 


%THEN 


clause of %IF statement 


TIME 


built-in function 


TO 


clause of DO statement 


TITLE(x) 


option of OPEN statement 


TRANSIENT^ 


attribute(file) 


TRANSLATE(s,r[,p]) 


built-in function 


TRANSMIT 


condition 


TRKOFL 


option of ENVIRONMENT attri- 




bute 


TRUNC(x) 


built-in function 


U(m ax-block- size) 


option of ENVIRONMENT attri- 




bute 


UNALIGNED or UNAL 


attribute(data) 


UNBUFFERED or UNBUF 


attribute(file), option of OPEN 




statement 


UNDEFINEDFILE or 




UNDF(file-name) 


condition 


UNDERFLOW or UFL 


condition 


UNLOCK^ 


statement 


UNSPEC(x) 


built-in function, pseudo-variable 


UPDATE 


attribute(fUe), option of OPEN 



statement 

V(m ax-block-size I, max-record-size]) option of ENVIRONMENT attri- 
bute 

VARYING or VAR (see BIT) attribute(data, string) 

VBS (m ax-block- size 

[ ,max-record-size ] ) option of ENVIRONMENT attri- 

bute 

VERIFY(expressionl,expression2) built-in function 

VS (max-block-size 

[,m ax-record-size]) option of ENVIRONMENT attri- 

bute 

WAIT statement 

WHILE clause of DO statement 

WRITE statement 



ZERODIVIDE or ZDIV 



condition 



1 - should not be used; it causes abnormal termination 

2 - is not used; it is ignored 

3 - raises the UNDEFINEDFILE condtion 

4 - treated same as if keyword V is specified 
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TYPE 

OF 

OPERATION- 


OPERATION SYMBOL 


OPERATION 


60 -Character 
Set 


48-Character 
Set 


ARITHMETIC 


+ 


+ 


addition or prefix + 






subtraction or prefix 


* 


* 


multiplication 


/ 


1 


division 


** 


** 


exponentiation 


COMPARISON 


> 


GT 


greater than 


> = 


GE 


greater than or equal to 


= 


= 


equal to 


~l = 


NE 


not equal to 


< = 


LE 


less than or equal to 


< 


LT 


less than 


1> 


NG 


not greater than 


1< 


NL 


not less than 


LOGICAL 

(bit string) 


1 


NOT 


not 


1 


OR 


or 


& 


AND 


and 


CONCATE- 
NATION 


II 


CAT 


concatenation 



OPERATION 


PRIORITY* 


** 


1st 


1 


+ {prefix) 


- (prefix) 


/ 


2nd 


* 


+ (infix) 


3rd 


- (infix) 


II 


4th 


= 


5th 


> = 


< = 


> 


< 


1 = 


~1> 


~1< 


& 


6th 


i 


7th 



Parentheses modify priorities; op- 
erations enclosed in parentheses 
are performed first, beginning with 
the innermost pair of parentheses. 
The expression ( A)^ must be writ- 
ten in PL/ 1 notation as: 

(- A)**2 
so that reversing the sign of A will 
be performed first. Without paren- 
theses, exponentiation would be 
performed first and the result 
would be {A*A) or (A2). 
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CHARACTER SETS WITH EBCDIC AND CARD-PUNCH CODES 

These card codes are those used by the TSS/360 high-speed care reader. The code 
variations for use with the IBM Card Reader can be found in IBM System/360 Time 
Sharing System, Terminal User's Guide, Form GC28-2017. 
48-CHARACTER SET 60-CHARACTER SET 



Character 


Card-Punch 


8-Bit Code 


Character 


Card-Punch 


8-Bit Code 


blank 


no punches 


0100 0000 


blank 


no punches 


0100 0000 




12-8-3 


0100 1011 




12-8-3 


0100 1011 


( 


12-8-5 


0100 1101 


< 


12-8-4 


0100 1100 


+ 


12-8-6 


0100 1110 


( 


12-8-5 


0100 1101 


$ 


11-8-3 


0101 1011 


+ 


12-8-6 


0100 1110 


* 


11-8-4 


0101 1100 




12-8-7 


0100 nil 


I 


11-8-5 


0101 1101 


& 


12 


0101 0000 


- 


11 


0110 0000 


s 


11-8-3 


0101 1011 


/ 


0-1 


Olio 0001 


* 


11-8-4 


0101 1100 




0-8-3 


Olio 1011 


) 


11-8-5 


0101 1101 




8-5 


0111 1101 




11-8-6 


0101 1110 


= 


8-6 


0111 1110 


1 


1 1-8-7 


0101 1111 








/ 


11 

0-1 
0-8-3 


0110 0000 
0110 0001 
Olio 1011 








% 


0-8-4 


Olio 1100 








- 


0-8-5 


0110 1101 








> 


0-8-6 


Olio 1110 








? 


0-8-7 
8-2 


Olio nil 

0111 1010 








# 


8-3 


0111 1011 








@ 


8-4 
8-5 


0111 1100 
0111 1101 








= 


8-6 


0111 1110 


A 


12-1 


1100 0001 


A 


12-1 


noooooi 


B 


12-2 


1100 0010 


B 


12-2 


1100 0010 


C 


12-3 


1100 0011 


C 


12-3 


1100 0011 


D 


12-4 


1100 0100 


D 


12-4 


1100 0100 


E 


12-5 


1100 0101 


E 


12-5 


IIOOOIOI 


F 


12-6 


1100 0110 


F 


12-6 


11000110 


G 


12-7 


1100 0111 


G 


12-7 


11000111 


H 


12-8 


1100 1000 


H 


12-8 


1100 1000 


I 


12-9 


1100 1001 


I 


12-9 


1100 1001 


J 


11-1 


1101 0001 


J 


11-1 


1101 0001 


K 


11-2 


11010010 


K 


11-2 


11010010 


L 


11-3 


11010011 


L 


11-3 


1101 0011 


M 


11-4 


1101 0100 


M 


11-4 


1101 0100 


N 


11-5 


11010101 


N 


11-5 


1101 0101 





U-6 


11010110 





11-6 


1101 OHO 


P 


11-7 


1101 0111 


P 


11-7 


11010111 


Q 


11-8 


1101 1000 


Q 


11-8 


1101 1000 


R 


11-9 


1101 1001 


R 


11-9 


1101 1001 


S 


0-2 


11100010 


S 


0-2 


1110 0010 


T 


0-3 


11100011 


T 


0-3 


iiiooon 


U 


0-4 


11100100 


U 


04 


1110 0100 


V 


0-5 


11100101 


V 


0-5 


11100101 


w 


0-6 


UIOOUO 


w 


0-6 


1110 01 10 


X 


0-7 


11100111 


X 


0-7 


11100111 


Y 


0-8 


11 10 1000 


Y 


0-8 


1110 1000 


Z 


0-9 


1110 1001 


Z 


0-9 


1110 1001 








11110000 








nil 0000 


1 


I 


1 111 0001 


1 


1 


nil 0001 


2 


2 


11110010 


2 


2 


nil 0010 


3 


3 


UllOOll 


3 


3 


nil 0011 


4 


4 


nil 0100 


4 


4 


1111 0100 


5 


5 


11110101 


5 


5 


11110101 


6 


6 


lUlOUO 


6 


6 


nil Olio 


7 


7 


11110111 


7 


7 


nil 0111 


8 


8 


nil 1000 


8 


8 


nil 1000 


9 


9 


nil 1001 


9 


9 


nil 1001 
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60-Chamcter 






Composite 




Set 


Composite 




Symbols 


Card Punch 


Equivalent 


Symbols 


Card-Punch 




12-8-3, 12-8-3 




<= 


12-8-4, 8-6 


LE 


11-3,12-5 


<= 


It 


12-8-7,12-8-7 


CAT 


12-3,12-1,0-3 


II 


** 


11-8-4,11-8-4 


** 


11-8-4,11-84 


** 


1< 


11-8-7, 12-8-4 


NL 


11-5,11-3 


1< 


~1> 


1 1-8-7, 0-8-6 


NG 


11-5.12-7 


!> 


"1 = 


1 1-8-7, 8-6 


NE 


11-5,12-5 


"1= 


> = 


0-8-6, 8-6 


// 


0-1, 0-1 


% 


i* 


0-1, 11-8-4 


,. 


0-8-3, 12-8-3 




*/ 


11-8-4,0-1 


AND 


12-1,11-5,12-4 


& 


-> 


11.0-8-6 


GE 


12-7, 12-5 


> = 






GT 


12-7,0-3 


> 






LT 


1 1-3, 0-3 


< 






NOT 


11-5, 11-6,0-3 


1 






OR 


11-6, 11-9 


I 






/* 


0-1, 11-8-4 


/* 






*/ 


11-8-4,0-1 


*/ 






PT 


11-7,0-3 


-> 







Note: When using the 48-chaxacter set, the following rules should be observed: 

1. The two periods that replace the colon must be immediately preceded by a blank if 
the preceding character is a period. 

2. The two slashes that replace the percent symbol must be immediately preceded by a 
blank if the preceding character is an asterisk, or immediately followed by a blank if 
the following character is an asterisk. 

3. The ^quence "comma period" represents a semicolon except when it occurs in a 
comment or character strii^, or when it is immediately followed by a digit. 
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FORTRAN Statement Meanings 

Assignment Statements 

Arithmetic -assign arithmetic value to variable 

Logical -assign logical value to variable 

ASSIGN -assign statement number to variable 

Control Statements 

GO TO (unconditional, computed, and assigned) -transfer control to 

another statement 
IF (arithmetic, logical) -test condition and transfer control 
DO -repeatedly execute statements that foUow 
CONTINUE -dummy statement; usually last in DO loop 
PAUSE -temporarily halt execution and write message on SYSOUT 
STOP-terminate execution of object program 
END -defines end of source program or subprogram to compiler 
Input Output Statements 
READ -read data 
WRITE -write data 

FORMAT-defme structure of data record 
NAMELIST -lists variables to be read or written 
END FILE -define end of data set 
REWIND -position to first data set associated with data reference 

number 
BACKSPACE -backspace one record 
Specification Statements 
Type Statements 

IMPLICIT -specify type and length for variable or array 

EXPLICIT specification (integer, real, complex, logical) same as 
IMPLICIT 
DIMENSION -allocate storage for array 
COMMON -allow different programs to share storage 
Subprograms 

FUNCTION -define function subprogram 
SUBROUTINE— define subroutine subprogram 
END -define physical end of subprogram to be compiled 
RETURN -specify logical end of subprogram 
CALL -invoke subroutine subprogram 
ENTRY -define entry point in subprogram 
EXTERNAL -expand in-line function out-of-line 
BLOCK DATA -enter data into labeled common block 
Other FORTRAN Statements Accepted by FORTRAN IV 
READ -read data from system input data set 
PUNCH -write data into data set associated with system output 
PRINT -write data into data set associated with system output 
DATA -define initial values for variables and arrays 
DOUBLE PRECISION -specify variables as double-precision variables 
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FORTRAN 



Arithmetic and Logical Expressions 

Consist of aiithmetic or logical constants, variables, or subscripted 
variable separated by arithmetic, relational, or logical operators. 
Arithmetic 

(^erators Explanation 

** exponentiation 

* multiplication 

/ division 

+ addition 

subtraction 



Relational 




Operator 


Explanation 


.GT. 


greater than ( >) 


GE. 


greater than or equal to ( ^) 


XT. 


less than{ <) 


LE. 


less than or equal to ( < ) 


.EQ. 


equal to (=) 


.NE. 


not equal to ( #) 


Logical 




operation 


Explanation 


.NOT. 


.NOT. A -if A is .TRUE, tl 



then value .NOT. A is 
.FALSE.; if A is .FALSE, then value .NOT. A is 
.TRUE. 
.AND. A.AND.B-if A and B are .TRUE, then value 

A.AND.B is .TRUE.; if either A or B or both are 
.FALSE., then value A.AND.B is .FALSE. 
.OR. A.OR.B-if A or B or both are .TRUE, then value 

A.OR.B is .TRUE.; if A and B are .FALSE, then 
value A.OR.B is .FALSE. 
Two logical operators may appear in sequence only if second logical 
operator is .NOT. 

Order of computations in expressions Where parentheses are omitted, 
or entire expression is enclosed within single pair of parentheses, this is 
order in which operations are performed: 

Operation Hierarchy 

Evaluation of functions 1st (highest) 

Exponentiation (**) 2nd 

Multiplication and division (* and /) 3rd 

Addition and subtraction (+ and -) 4th 

.LT.,.LE.,.EQ.,.NE.,.GT.,.GE. 5th 

.NOT. 6th 

.AND. 7th 

.OR. 8th 

Subscript Specifies one of index coordinates that identify specific 
element of array. From 1 to 7 subscripts are used in accordance with 
dimensionality of array being subscripted; multidimensional subscripts, 
separated by commas; subscripts, enclosed in parentheses, follow array 
name. One of seven forms; v,c',v+c%v-c'c*v,c*v+c', c*v-c', where v is 
unsigned, nonsubscripted, integer variable and c and c' are unsigned 
integer constants. Whatever subscript form is used, evaluated result 
must be greater than 0. 
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FORTRAN Statement Formats 

Arithmetic and logical assignment statement 
a = b 

a — subscripted or nonsubscripted variable 

Ji - arithmetic or logical expression 

a must be logical variable if, and only if, b is logical expression 
ASSIGN and assigned GO TO statements 
ASSIGN i to m 



GO TO m (xi ,X2,X3,...,Xn) 

j^- executable statement number 

li'2^2»^3>--'5n " executable statement numbers 

m - nonsubscripted integer variable, length 4, equal to 

Xi,X2.X3.-.Xn 

BACKSPACE a 

a. — unsigned integer constant or integer variable, length 4, repre- 
sents data set reference number 

CALL name (ai»a2,a3,...,aj,) 

name — subroutine's subprogram name or name defined in ENTRY 
statement in subroutine subprogram 

3i>i2»§3'---iin ~ actual arguments supplied to subroutine subpro- 
gram; each may be of form &n where n is statement number 

COMMON /i/a (ki),b(k2),.../j/c(k3),d(k4X-.. 

a,b,...,c,d,., - variable or array names 

ki,k2,...,k3,k4... - optional; each composed of 1 through 7 un- 
signed integer constants, separated by commas, representing max- 
imum value of each subscript in array 

/j/... - optional common block names consisting of one through six 
alphameric characters; first is alphabetic; names must be em- 
bedded in slashes 



CONTINUE no operands 

DATAvi...,Vn/ii *di...4n *dn/,Yn-n,...,yni/in+, *dn-i-i,...Jm*dm/»- 

Xi'--'Xm ~ variables, subscripted variables (subscripts must be integer 
constants), or array names 

di,...,d|,^ - values of integer, real, complex, logical or literal hexa- 
decimal data constants 

ii>-'im ^ unsigned integer constants indicating number of con- 
secutive variables to be assigned value of d j ,... ,dn, 

DO x j_ = mi, m2, m^ 

end of DO initial test increment 

range variable value value 

x^ - number of executable statement that follows DO statement 

j_- nonsubscripted integer variable 

m J, 122, ma — either unsigned integer constants greater than 0, or 
unsigned nonsubscripted integer variables greater than 0; sum 
m2+m3 +1 must not exceed size of virtual storage; (ma optional; 
if omitted, value assumed to be 1; preceding comma must be 
omitted) j-q 



DOUBLE PRECISION a,b,c,... 

a,b,c,... " variable names that may be dimensioned in statement, or 
function names 

DIMENSION ai (kj ),a2 (k2),a3 (ka),...,?^ (k^) 
ai,_a2, a3,.-.,a]s| 

§1, §2, 33,.. .,an -array names 

ki,k2,k3,...,kn -each composed of 1 thiough 7 unsigned integer 
constants, separated by commas, representing maximum value of 
each subscript in array; ki through k^ may be integer variables, 
length 4, only when they appear in DIMENSION statement with- 
in subprogram 
END no operands 

END FILE a 

a - unsigned integer constant or integer variable, length 4; repre- 
sents data set reference number 
ENTRY name (aj ^2 »a3^.,an) 

name - name of entry point containing from 1 to 6 alphabetic 
and/or numeric characters; first is alphabetic 

ai,a2 ,33,. . .,an - dummy arguments corresponding to actual argu- 
ment in CALL statement or in a function reference 

EQUIVALENCE (a,b,c,...), (d, e, f,...) 

a, b, c, d, e, f,... - variables that may be subscripted; subscripts may 
have two forms single-subscripted variable refers to position of 
variable in array (i.e., 1st, 25th; multiple-subscripted variable 
refers to array position as in arithmetic statements 
Explicit specification statements 
type* sa*si (ki )/xi /,b*S2 (lS2)/2^2/5-€% (kn )/?n/ 

type - INTEGER, REAL, LOGICAL, or COMPLEX 

*s,*Si,*S2,...,*Sn - optional; each s represents permissible 
length specification for associated type 

a,b,...,z — variable, array, or function names 
(ki),(k2),...,(kn) - optional; each k composed of 1 through 7 
unsigned integer constants, separated by commas, representing 
maximum value of each subscript in array ; each k may be un- 
signed integer variable only if in subprogram's type statement 

/xi {Jl^iL-"J^til " optional; represent initial data values 
Format statement 
X FORMAT (c 1 ,£2 ,...,Cn/ci \c^ ', ...,Cn7...) 

x - statement number (1 through 5 digits) 

Ci,C2 , .,Cn and ci',C2',.-.5Cn ' - format codes; may be delimited 
by one of separators: comma, slash, parenthesis; codes specify 
length, decimal point, position of data in data set; slash (/) sepa- 
rates FORTRAN records 

flGw.s. -transfer integer, real, complex, or logical data 

^w -transfer integer data 

aFw.d -transfer real data not containing decimal exponent 

ap^d -transfer real data containing E decimal exponent 

aDw.d —transfer real data containing D decimal exponent 

aZw -transfer hexadecimal numbers 

aLw —transfer logical data 

aAw -transfer alphameric data 

wH -transfer literal data 

wX -skip data when reading or insert blanks when writing 
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^ _ optional; unsigned integer constant; denotes number of 
times same format code is repetitively referenced 

w - unsigned integer constant, less than or equal to 255, speci- 
fying number of data characters 

s _ unsigned integer constant specifying number of significant 
digits 

d _ unsigned integer constant specifying number of decimal 
places to right of decimal point 

EXTERNAL a,b,c,... 

a,b,c,... — names of subprograms used as arguments in other sub- 
programs 

Function statement 

type FUNCTION name*s (ai,a2 ,§3, ...,§„) 

type — integer, real, complex, or logical 

name - name of FUNCTION subprogram 

*^- optional; represents one of permissible length specifications for 
associated type 

Jl.i2»53>'-'§n " nonsubscripted variable, array, or dummy names of 
of SUBROUTINE or FUNCTION subprograms; at least one argu- 
ment must be in argument Ust (arguments may be enclosed in 
slashes within commas, etjuivalent to normal format without 
slashes) 

Function (arithmetic statement) 
name (a,b,..,yri) = expression 

name — any subprogram name 

a,b,...,n - distinct (within same statement) unsubscripted variables 

expression - any arithmetic or logical expression not containing 

subscripted variables; statement functions in this expression 

must be defined previously 

GO TO (computed statement) 

GO TO (X, ^2 tX3 ,..,Xn ),i 

Z^i»^2>- -tXn, - executable statement numbers 

i_- nonsubscripted integer variable in range: 1 < Kn 

CX) TO (unconditional statement) 
___ 

X - executable statement number 
IF (arithmetic statement) 
iF(a)xi^2»X3 

a - arithmetic expression; not complex 

X|,X2,X3 - statement numbers 
IF (logical statement) 
If<a)s 

a_ - logical expression 

s — any statement except specification statement, DO statement, or 
another logical IF statement 

IMPLICIT ty£e*s(ai £2 ,...),...,type*s(ai ^2 .— ) 

type — integer, real, complex, or logical 

*^ — optional; one of permissible length specifications for associated 
type 

ai,a2,... — single alphabetic characters, separated by commas, or 
range of characters (in alphabetic sequence) denoted by first and 
last characters of range separated by hyphen (e.g., A-D) 

NAMELIST/x/a,b,...,c/^/d,e^...//z/£^,...4 

x,Y,and z,... - NAMELIST names, 1-6 alphameric; first, alphabetic 
a,b,c,d,... - variable or array names gi 



PAUSE 
PAUSE n 
PAUSE 'message* 

n - unsigned 1 -5 -digit integer constant 

message -^ any literal constant 

PRINT b, list 

b - number of array name of FORMAT statement describing data 
list — series of variable or array names, separated by commas; may 

be indexed and inciemented; specify number of items written 

and data storage locations 

PUNCH b, list 

b - number or array name of FORMAT statement describing data 
list - series of variable or array names, separated by commas; may 
be indexed and incremented; specify number of items written 
and data storage locations 

READ (a, b, END=c, ERR=d) list 

a - unsigned integer constant or integer variable, length 4 ; data set 

reference number 
b - optional; number or array name of FORMAT statement describ- 
ing data being read, or NAMELIST name; when NAMELIST 

name specified, LIST not specified 
END=c - optional; statement number to which transfer is made at 

end of data set 
ERR=d — optional; number of statement to which transfer is made 

if error condition in data transfer 
list^- optional; series of variable or array names, separated by 

commas; may be indexed and incremented; specify number of 

items read and data storage locations 
READ statement may take different forms; parameters END=c 
and ERR=d, optional; parameter list, parameter b, or both, may 
be omitted 

RETURN Statement 
RETURN! 

i - optional in subroutine subprogram; not applicable in functional 
subprogram; integer constant or variable, length 4; value, n, de- 
notes nth statement number in argument list of SUBROUTINE 
statement 

REWINDa^ 

a - unsigned integer constant or integer variable, length 4, repre- 
senting data set reference number 

STOPji 

n - optional; unsigned 1 -5-digit integer constant 
SUBROUTINE name (§1,52,33 ,...,an) 
name - subprogram name 

li>§2'i3'-'§n - arguments, if any; every argument must be non- 
subscripted variable or array name, dummy name of another 
SUBROUTINE or FUNCTION subprogram, or of form *, where 
* is return point specified by statement number in calling pro- 
gram 

WRITE(a, b)iist 

a - unsigned integer constant or integer variable, length 4; data set 
reference number 

b - optional; number or array name of FORMAT statement describ- 
ing data being written, or NAMELIST name 

list - optional; series of variable or array names, separated by 
commas; may be indexed and incremented; specify number of 
items written and data storage locations 
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FORTRAN Source Program Characters 



Alphabetic 
Characters 


EBCDIC 
or BCDIC 
Punches 


Numeric 
Characters 


EBCDIC 
or BCDIC 

Punches 


A 


12-1 








B 


12-2 


1 


1 


C 


12-3 


2 


2 


D 


12-4 


3 


3 


E 


12-5 


4 


4 


F 


12-6 


5 


5 


G 


12-7 


6 


6 


H 


12-8 


7 


7 


I 


12-9 


8 


8 


J 


ll-l 


9 


9 


K 


11-2 






L 


11-3 






M 
N 


11-4 
11-5 






Special 


EBCDIC 


BCDIC 


O 


11-6 


Characters 


Punches 


Punches 


P 


11-7 














Q 


11-8 


-1- 


12-6-8 


12 


R 


11-9 


- 


11 


11 


S 


0-2 


/ 


0-1 


0-1 


T 


0-3 


= 


6-8 


3-8 


U 


0-4 




12-3-8 


12-3-8 


V 


0-5 


) 


11-5-8 


12-4-8 


w 


0-6 


♦ 


11-4-8 


11-4-8 


X 


0-7 




0-3-8 


0-3-8 


Y 


0-8 


( 


12-5-8 


0-4-8 


z 


0-9 




5-8 


4-8 


s 


11-3-8 


blank 


no punch 


no punch 


(see notes) 




(see notes) 






Source programs are coded in either 


BCDIC or EBCDIC character | 


codes; mixing two is not allowed. 






S is alphabetic character in EBCDIC only 




( is special character in EBCDIC only 







Characters listed constitute character set acceptable by FORTRAN. In literal 
data, any valid code is acceptable. 
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Mathematical Function Subprograms 



Definition 



lor 
O* 



Arguments 
(no., type) 



Returned 
Function 



Exponential 


EXP 


earg 





Real ♦4 




Real *4 






DEXT 


earg 





Real *8 




Real *8 






CEXP 


earg 


O 


Complex 


*8 


Complex 


*8 




CDEXP 


earg 





Complex 


*16 


Complex 


*16 


Natural 


A LOG 


1 n(arg) 





Real *4 




Real *4 




Logarithm 


DLOG 


In(arg) 





Real *8 




Real *8 






CLOG 


In(arg) 





Complex 


*8 


Complex 


*8 




CDLOG 


1 n(arg) 





Complex 


*16 


Complex 


*16 


Common 


ALOGIO 


log, (arg) 





Real ^4 




Real *4 




Logarithm 


DLOG 10 


logi (arg) 





Real *8 




Real *8 




Arcsine 


ARSIN 


arcsin(arg) 





Real *4 




Real *4 






DARSIN 


arcsin(arg) 





Real *8 




Real *8 




Arccosine 


ARCOS 


arccos(arg) 





Real *4 




Real ^4 






DARCOS 


arccos(arg) 





Real *8 




Real *8 




Arctangent 


ATAN 


arctan(arg) 





Real *4 




Real *4 






ATAN2 


arctan(argi /argj 


. 


> Real*4 




Real *4 






DATAN 


arctan(arg) 





Real *8 




Real *8 






DATAN2 


arctan(argi /argj 


: 


I Real *8 




Real *8 




Trigonometric 


SIN 


sin(arg) 





Real *4 




Real *4 




Sine 


DSIN 


sin(arg) 





Real +8 




Real *8 




(argument in 


CSIN 


sin(arg) 





Complex 


*8 


Complex 


*8 


radians) 


CDSIN 


sin(arg) 





Complex 


*16 


Complex 


*16 


Trigonometric 


COS 


cos(arg) 





Real *4 




Real *4 




Cosme 


DCOS 


cos(arg) 





Real *8 




Real *8 




(argument in 


CCOS 


cos(arg) 





Complex 


*8 


Complex 


*8 


radians) 


CDCOS 


cos(arg) 





Complex 


*16 


Complex 


*16 


Trigonometric 


TAN 


tan(arg) 


o 


Real *4 




Real *4 




Tangent 


DTAN 


tan(arg) 


o 


Real *8 




Real *8 




Trigonometric 


COTAN 


cotan(arg) 





Real *4 




Real *4 




Cotangent 


DCOTAN 


cotan(arg) 





Real *8 




Real *8 




Square Root 


SORT 


/arg 





Real *4 




Real *4 






DSQRT 


/arg 





Real *8 




Real *8 






CSQRT 


/arg 





Complex 


*8 


Complex 


*8 




C DSQRT 


/arg 





Complex 


*16 


Complex 


*16 


Hyperbolic 


SINH 


sinh(arg) 





Real *4 




Real *4 




Sine 


DSINH 


sinh(arg) 





Real *8 




Real *8 




Hyperbolic 


COSH 


cosh(arg) 





Real *4 




Real *4 




Cosine 


DCOSH 


cosh(arg) 





Real *8 




Real *8 




Hyperbolic 


TANH 


tanh(arg) 





Real *4 




Real *4 




Tangent 


DTANH 


tanh(arg) 





Real *8 




Real *8 




Error 


ERF \ 


' [ ' -"^ 


. 


Real *4 




Real *4 




Function 


DERF 1 


-Jo ' '" 





Real *8 




Real *8 




Complemented 


ERFC 


2 f- -u^ 





Real *4 




Real ^4 




Error 


DERFC 


.j^ e du 





Real *8 




Real *8 




Function 
















Gamma 


GAMMA 


U^ u''-^- 





Real *4 




Real *4 






DGAMMA 


/jo " ' 


Juq 


Real *8 




Real *8 




Log-gamma 


ALGAMA 


In r (arg) 





Real *4 




Real *4 






DLGAMA 


In r (arg) 





Real *8 




Real *8 





Remaindering MOD argi (mod arg2) I 2 integer *4 Integer *4 

AMOD argi (modarga) I 2 Real *4 Real *4 

DMOD argi (modarga) I 2 Real *8 Real ♦S 
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I or Arguments 


Returned 


Function 


Name 


Definition 


o:!! 


no., type) 


Function 


Absolute 


lABS ) 


larg 1 


I 1 


Integer *4 


Integer *4 


value 


ABS > 




1 1 


Real *4 


Real *4 




DABS 1 




1 1 


Real *8 


Real *8 




CABS 1 


for a+bi = arg 


O 1 


Complex *8 


Real *4 




CDABS ) 




1 


Complex *I6 


Real *8 


Truncation 


INT 


Sign of arg times 
largest integer 

< 1 arg t 


I 1 


Real *4 


Integer *4 




AINT 




I 1 


Real *4 


Real *4 




[DINT 




I 1 


Real *8 


Integer *4 


Largest 


AMAXO \ 




I >2 


Integer *4 


Real *4 


value 


AMAXI 1 


Maxfarg, , 


I >2 


Real *4 


Real *4 




MAXO \ 


arg2,.-.) 


1 >2 


Integer *4 


Integer *4 




MAX! I 




I >2 


Real *4 


Integer *4 




DMAXI / 




i >2 


Real *8 


Real *8 


Smallest 


AMINO 1 




I >2 


Integer *4 


Real *4 


value 


AM IN I / 


Min(arg, , 


I >2 


Real *4 


Real *4 




MINO > 


arg2,...) 


I >2 


Integer *4 


Integer *4 




MINI I 




I >2 


Real *4 


Integer *4 




DMINl 1 




I >2 


Real *8 


Real *8 



Float 


FLOAT 
DFLOAT 


Convert from 
integer to real 


I 1 Integer *4 
I I Integer *4 


Real *4 
Real *8 


Fix 


I FIX 
HFIX 


Convert from 
real to integer 


I 1 Real*4 
I 1 Real *4 


Integer *4 
Integer *2 


Transfer 
of sign 


SIGN 1 
ISIGN I 
DSIGN ) 


Sign of arg2 
times largil 


1 2 Real *4 

I 2 Integer *4 
I 2 Real *8 


Real *4 
Integer *4 
Real *8 


Positive 

difference 


DIM 
I DIM 


arg, - min(arg, , 
argi) 


I 2 Real *4 

1 2 Integer *4 


Real *4 

Integer *4 



Obtain most 
significant 
part of 
Real *8 
argument 



SNGL 



Obtain real 
part of 
complex 

argument 



I I Complex *8 Real *4 



Obtain imag- 
inary part of 
complex 

argument 



I 1 Complex *8 Real *4 



Express Real 

*4 argument 
in Real *8 
form 



I 1 Real *4 Real *8 



Express two 
real argu- 
ments in com- 
plex form 



CMPLX 
DCMPLX 



C=arg, 
+iarg2 



I 2 Real *4 Complex *8 

I 2 Real *8 Complex* 16 



Obtain con- 
jugate of 
complex 
argument 



CONJG 
DCONJG 



C=X iY 

for arg=X+iY 



1 1 Complex *8 Complex *8 
I 1 Complex *1 6 Complex *l 6 



" I=in-line; O=out-of-line 
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Service Sybprograms 













Storage 




Function 


Name 


Operands 


lorO* 


No. of 
ARCS. 


Estimate 


Format 


Hex 


Dec 


Turn all sense 


SLITE 


(i) where i 







1 


324 


804 




lights off or 




equals 0,1, 












one sense 




2.3,4 












light on 
















Test a sense 


SLITET 


(i, j) where 





2 


324 


804 




light, or 




i equals 0, 












record its 




1,2,3,4 and 












status 




j equals 1 

or 2 












Dump speci- 


DUMP 


(a,,b,,f,,... 





3 


48 


168 




fied storage 




an,bn4) 












area and ter- 




a=upper limit 












minate proc- 




b=lower limit 












essing 




F=format 
specification 



1 

2 
3 
4 
5 
6 
7 
8 
9 










hex 

Logical *I 
Logical *4 
Integer *2 
Integer *4 
Real *4 
Real *8 
Complex *8 
Complex *16 
hteral 
character 


Dump speci- 


PDUMP 


(a,,b,,f,,... 





3 


48 


168 




fied storage 




an=bn,fn) 












area and re- 




where a,b 












sume process- 




and f are as 












ing 




in DUMP 












Terminate 


EXIT 


(issued with- 








lAC 


428 




user program- 


STOP 


out CALL) 












ming; pass 
















control to 
















terminal; 
















write message 
















to SYSOUT 
















Write message 


PAUSE 


(issued with- 








lAC 


428 




to SYSOUT; 




out CALL) 












continue proc- 
















essing user's 
















program 
















Test and re- 


OWRFL 


j, where j 


1 










cord status of 




= 1 for 












exponent over- 




>1663 












flow indica- 




=2 for no 












tors 




over-or-un- 
der-flow 
=3 for 
<16-" 












Test and re- 


DVCHK 


(j) 


1 










cord status of 




i=l if divide 












divide check 




check on 












indicator 




=2 if divide 
checkoff 
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Assembler Instruction Statements 

Symbol Definition 
EQU equate symbol 

Data Definition 

IX^ define constant 

DS define storage space 

CCW define channel command word 

Program Sectioning and Linking 

START start asserpbly 

CSECT identify control section 

PSECT identify protype control section 

COM identify blank common control section 

ENTRY identify entry point symbol 

EXTRN identify external symbols 

DSECT identify dummy control section 

Establishing Base Registers 
USING use base address register 
DROP drop base address registers 

Listing Control 

TITLE identify assembly output 

EJECT start new page 

SPACE space listing 

PRINT print optional data 



Program Control 


ICTL 


source format control 


ISEQ 


input sequence check 


ORG 


set location counter 


LTORG 


begin literal pool 


CNOP 


conditional no-operation 


COPY 


copy predefined source coding 


END 


end assembly 



ASSEMBLER STATEMENTS 



Name 


tT 


Operands 


Specified as 


[symbol] 


CCW 


command code 

,data address 

,flag values 
jCOunt 


1 byte, absolute 
expression, right 
justified 


absolute, relocatable, 
or complex expression 


absolute expression 


absolute expression 


Channel command operation codes and flag 
representations are summarized under 
"Appendix" 




CNOP 


byte alignment, 
word type I'^.^^blel 
(smgle j 


b=n, where n = 0,2,4, or 6 
w=n, where n = 4 or 8 




COM 


same as CSECT 


default = standard 
common section 




COPY 


symbol name 


name of area to be copied 
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ASSEMBLER 



Name 


Opeia- 
tion 


Operands 


Specified as 


[symbol] 


CSECT 


[public storage] 
[,read only storage] 
[, variable section length] 
[, privileged section] 
[,section includes SYS 
entry points] 


PUBLIC 

.READONLY 

,VARIABLE 

,PRVLGD 

,SYSlbM 


[symbol] 


DC 


[duplication factor] 
constant-type 

[scale] 
[exponent] 
constant [,...] 


(see *) 

L.n(see**) 

Ln(see**) 

Sn(see***) 

En (see t) 

(seett) 


^constant' or (constant) | 


« 


** 


*mm 


t 


t+ 












Type 


LnLn 
(n=) 


Sn 


En 


Constant 
specified 
as 


Implied 
length 


Implied 
align- 
ment 


Trunca- 
ting/ pad- 
ding side 


C 


I bit 
to 256 
bytes 






'up to 
256 char- 
acters' 


as 
needed 


byte 


right 


X 






'hex 
digits' 


left 


B 






'binary 
digits' 


left 


F 


I bit 

to 8 
bytes 


-187 

to 

+346 


-85 
to 
+75 


'decimal 
digits,...' 


4 


word 


left 


H 


2 


half 
word 


left 


E 


Oto 
2L-2 

2 


■85 
to 
+75 


4 


word 


right 


D 


8 


double 
word 


right 


' L is length constant; no negative scaling 


P 


Ibit 
to 16 






decimal 
digits ,... 


as 
needed 


byte 


left 






z 


bytes 














A 


ibit* 
to 4 
bytes 






(any 
expres- 
sion,...) 


4 * 


word 


left 


*Bit4englh specifications with absolute 
expressions; relocatable A-type constants, 
3 or 4 bytes; relocatable Y-type constants, 2 bytes 


V 


3 or 4 
bytes 






(reloca- 
table ex- 


4 


word 
















pression 








R 


Ibit 
to 4 
bytes 






(external 
sym- 
bol,...) 


4 


word 




S 


2 
bytes 






3 


2 


half 
word 




'one absolute or relocatable expression, 
or two absolute expressions 


Y 


Ibit 
to 2 

bytes* 






(any 
expres- 
sion 


2 


half 
word 


left 


"one absolute or relocatable expression, 
or two absolute expressions 
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DROP 


regl f.reg2,...,regl61 


absolute value 


[ symbol 1 


DS 


f duplication factor) 


same as DC except as 






(constant type] 


noted below 






, .,1 bits \ ~ 
'^""^^'^ 1 bytes!- J 








fscalcl 








[exponent] 




! . SpecibcatiDti of •constciiit' oporimd, Mptioiui 






2. 'Constam" operand roscrvcs spucc but docs wol ^toro data 






.^. Maxinuun Icsigth forC and X cuiistants, ds.'^.v^ bytes 






4. Duplicatioii factor <>l iuicc^ aliiinnieiU !o jNsunied 






alignments in LX' 


[symbol] 


DSFCT 


none 






END 


{control transfer point] 


relocatable or absolute 
expression 
default = first instr 
ofCSin^ 




ENTRY 


entry point [,...] 


relocatable symbols 




EJECT 


none 




[symbol] 


EQU 


self-defining term, 
previously defined sym- 
bol, or combining 
expression 






EXTRN 


external symbol [,.-•] 


relocatable symbols 




ICTL 


beginning source column 


b=decimal digit, range, 
1-40 






[ ,ending source column] 


e=decimal digit, range, 
41-80;default=71 






[, continue column] 


c=decimal dipt, range, 

2-40;default=16 
if no ICTL is used, 
b=l.e=71,c=16. 




ISEQ 


{sequence field - left col] 


decimal digits. 






{sequence field - right 


default = no sequence 






col] 


check 


1 symbol 1 


LTORCi 


none 






ORG 


fnew location counter 


expression: default=cur- 






address] 


rent location counter 
position +1 




PRINT 


i listing ( 


ON 






printing option ! no / 
f listing \ 


OEF 












i executable) 




GEN 






code I all > 




FULLGEN 






1 none , 




NOGEN 






r print full , " 
\ const / 

,constants print 8 


DATA 












NODATA 






1 bytes or I 
L ' less \ 












SPACE 


[no. of lines to be spaced] 


decimal digits, 
default = 1 


f symbol 1 


START 


{initial location ctr. 


self-defining term. 






address] 


default = 


{symbol] 


TITLE 


'characters' 


to 100 characters 


Note: symbol may be from 1 to 4 alphameric characters | 




USING 


base value, 


absolute or relocatable 
value. 






regl .I,reg2,...,regl6] 


absolute expression 
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Basic Instruction Formate 



Assembler 
Operand 
Fidd Applicable 
Basic Machine Format Format Instructions 










8 


4 


4 


R1,R2 AllRR 

instructions 
except SPM 


Operation 
Code 


Rl 


R2 






and SVC 


RR 


8 


4 


\4/ 


Rl SPM 


Operation 
Code 


Rl 


A 










8 


8 


I SVC 

(See notes 1,6,8) 


Operation 
Code 


I 














RX 


8 


4 


4 


4 


12 


R1,D2 AURX 

(X2,B2) instructions 
R1,S2 
' (X2) 

(See notes 14,7) 


Operation 
Code 


Rl 


X2 


B2 


D2 














8 


4 


4 


4 


12 


R1,R3, BXH,BXLE 
D2(B2) LM,STM 
R1,R3,S2 


Operation 
Code 


Rl 


R3 


B2 


D2 


RS 








8 


4 


V 


4 


12 


R1,D2(B2) AUshilt 
R1,S2 instructions 
(See notes 1-3,7,8) 


Operation 
Code 


Rl 


A 


B2 


D2 
















8 


8 


12 




Dl(Bl), 12 All SI 
SI, 1 2 instructions 
except 
LPSW,SSM, 
HIO,SIO 
TIO,TCH,TS 


Operation 
Code 


12 


Bl 


Dl 


SI 






8 


W 


4 


12 


Dl(Bl) LPSW,SSM, 
SI HIO,S10, 

TIO,TCH,TS 


Operation 
Code 


^ 


Bl 


Dl 






(See notes 2,3,6-8) 










8 


4 


4 


4 


12 


4 


12 


D1(L1,B1), PACK,UNPK, 
D2(L2,B2) MVO,AP, 
Sl(Ll), CP,DP,MP, 


Operation 
Code 


LI 


L2 


Bl 


Dl 


B2 


D2 


ss 




S2(L2) SP,ZAP 




8 


8 


4 


12 


4 


12 


D1(L,B1), NC,OC,XC, 

D2(B2) CLCMVC, 

S1(L),S2 MVN,MVZ, 

TR,TRT, 

ED,EDMK 

(See notes 2,3,5,7) 


Operation 
Code 


L 


Bl 


Dl 


B2 


D2 
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1. Rl, R2, and R3 -absolute expressions; specify general registers 
through 15 ; floating point registers 0, 2, 4, and 6. 

2. Dl and D2-absolute expressions; specify displacement values from 
to 4095. 

3. Bl and B2-absolute expressions; specify base registers 0-15, 

4. X2-absolute expression; specifies index registers 1 - 15. X2 = 
specifies no indexing. If B2 specified, X2 must be included, or 
omitted either by specifying or preceding B2 \wth comma. 

Ex: L2,48(,5) 

5. L, LI, and L2-absolute expressions; specify field lengths: L from 
to 256; LI and L2 from to 16. Assembled values will be one 
less than specifled (except that zero length will be assembled if 
is specified). 

6. I and 12 absolute expressions; provide immediate data; values 
from to 255. 

7. SI and S 2 -absolute or relocatable expressions; specify address. 

8. RR, RS and SI -fields shown crossed out with X's; not examined 
during execution; not written in symboUc operand, but assembled 
as binary Os. 



Standard Instruction Set 












Opera- 


Basic 


Operand 


Mnemonic 




tion 


Machine 


Field 


Code 


Instruction 


Code 


Format 


Format 


A 


Add 


5 A 


RX 


R1,D2(X2.B2) 


AD 


Add U'-irnuh/t'd. lunt' 


(iA 


RX 


R1,D2(X2,B2) 


ADD" 


Add iii>'.:na!i/ed. diuihk' 


o(i 


R\ 


RI,D2(X2.B2). 


ADDK' 


Add in.'r:nali/ed. duublt.' 


lu 


RR 


R1,R2 


ADR 


Add !Uit!nali/ed, l(Miu 


2 A 


RR 


R1.R2 


Al 


'Add iiormali/ed. short 


7 A 


RX 


R1,D2(X2.B2) 


AhR 


Add iiorrDLdi/cd. short 


-CA 


RR 


RKR2 


All 


Add hair--word 


4 A 


RX 


R1,D2(X2,B2) 


AL 


Add U^gical 


5P 


RX 


R1,D2(X2,B2) 


AIR 


Add U)gical 


Ih 


RR 


R1.R2 


AP 


Add dtvinial 


FA 


ss 


D1(LI.B1).D2(L2,B2) 


AR 


Add 


lA 


RR 


RI,R2 


All 


Add uiiriorniah/ed. short 


71, 


RX 


RI,D2{X2,B2) 


AUR 


Add ii:,norniah/ed, short 


31:: 


RR 


R!,R2 


AW 


Add iiruu)rn!ah/ed, long 


b\L 


RX 


RI,D2(X2,B2) 


AWR 


Add iiniiornKih/ed. long 


2i: 


RR 


R1,R2 ' 


AX'^ 


AuJ rii':r.:ali/,od. tnixed 


7/-. 


RX 


RI.D2(X2.B2) 


BAl,' 


BrdiK'l, and iiiik 


45 


RX 


RLD2(X2,B2) ' 


BALR' 


Brar'.J; and link 


05 


RR 


R1,R2 ; 


BAS 


Brari.h and store- 


4D 


RX 


R1,D2(X2,B2) 


BASR 


Bratich and store 


OD 


RR 


R1.R2 


B( 


Branch on condition 


47 


RX 


M1,D2(X2,B2) 


B( R 


Branch on ctuidition 


07 


RR 


M 1 .R2 


BCT' 


Brand on count 


4(. 


RX 


RI,D2(X2,B2) 


B( [R' 


Branch on count 


Ob 


RR 


R!,R2 


BX}I' 


Branch on index high. 


Hb 


RS 


R1,R3,D2(B2) 


BXLJ ' 


Brancfi i.-n index h>w oi equal 


HI 


RS 


R1,R3.D2(B2) 


C 


C oinpare algebraic 


5^1 


RX 


RI,D2(X2,B2) 


CD 


Compare, [■..nig 


0"> 


RX 


RI,D2(X232) 


CDR 


Compare, long 


2^^ 


RR 


RI,R2 


CH 


Compare. sliorl 


70 


RX 


R1,D2(X2,B2) 


Cl:R 


( ompare.slKHt 


3'> 


RR 


R1,R2 


CH 


Compare lialf-word 


4^) 


RX 


R1,D2(X2,B2) 


CL 


Compare h>gical 


55 


RX 


RI,D2(X2,B2) 


CL( 


Compare k>g!cal 


D5 


SS 


DI(L.B1),D2(B2) 


CI. I 


Compare logical inuiiediate 


')5 


SI 


Dl{BI),r2 


(IR 


Compare logical 


15 


RR 


R1.R2 


CP 


Compare dccnnal 


V'> 


SS 


DI{LI,BI),D2(L2,B2) 


CR 


( ompare algebraic 


l'> 


RR 


RI,R2 


{ VB 


Convert to binary 


4f 


RX 


R1,D2(X2,B2) 


CVD 


(\>nvert to decimal 


4L 


RX 


R1.D2(X2,B2) 
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Opera- 


Basic 


Operand 


Mnemonic 




tion 


Machine 


Field 


Code 


Instruction 


Code 


Format 


Format 


D 


Divide 


5D 


RX 


R1.D2(X2.B2) 


DD 


Divide, long 


6D 


RX 


RI,D2(X2,B2) 


DDR 


Divide, long 


2D 


RR 


R1,R2 


DE 


Divide, short 


7D 


RX 


R1,D2(X2,B2) 


DER 


Divide, short 


3D 


RR 


RI,R2 


DP 


Divide decimal 


FD 


SS 


Dl(Ll,Bl),D2a2,B2) 


DR 


Divide 


ID 


RR 


R1,R2 


ED 


Edit 


DE 


SS 


D!{L,B]),D2(B2) 


EDMK 


Edit and mark 


DF 


SS 


DHL.BJ).D2{B2) 


EX 


Execute 


44 


RX 


RI,D2(X2,B2) 


HDR 


Halve, long 


24 


RR 


R1,R2 


HER 


Halve, short 


34 


RR 


R1,R2 


HIO 


Halt I/O 


9E 


SI 


Dl(Bl) 


IC 


Insert character 


43 


RX 


RLD2(X2,B2) 


ISK^ 


Insert storage key 


09 


RR 


R1.R2 


L 


Load 


58 


RX 


RLD2(X2.B2) 


LA-^ 


Load address 


41 


RX 


Ri,D2(X2,B2) 


LCDR 


Load complement, long 


23 


RR 


R1,R2 


LCER 


Load complement, short 


33 


RR 


RI.R2 


LCR 


Load complement 


13 


RR 


RI,R2 


LD 


Load, long 


68 


RX 


R1,D2(X2.B2) 


LDR 


Load, long 


28 


RR 


R1.R2 


LE 


Load, short 


78 


RX 


RI,D2(X2,B2) 


LER 


Load, short 


38 


RR 


R1,R2 


LH 


Load half-word 


48 


RX 


R1,D2(X2,B2) 


LM 


Load multiple 


98 


RS 


R1,R3,D2(B2) 


LMC^ 


Load multiple control 


B8 


RS 


R1,R3,D2(B2) 


LNDR 


Load negative , long 


21 


RR 


R1,R2 


LNER 


Load negative, short 


31 


RR 


R1,R2 


LNR 


Load negative 


11 


RR 


R1,R2 


LPDR 


Load positive, long 


20 


RR 


R1,R2 


LPER 


Load positive, short 


30 


RR 


RI,R2 


LPR 


Load positive 


to 


RR 


RI,R2 


LFSW^ 


Load PSW 


82 


SI 


DI(Bl) 


LR 


Load 


18 


RR 


RLR2 


LRA^ 


Load real address 


Bl 


RX 


RI.D2(X2,B2) 


LTDR 


Load and test, long 


22 


RR 


RI,R2 


LTER 


Load and test, short 


32 


RR 


R1.R2 


LTR 


Load and test 


12 


RR 


R1,R2 


LX"* 


Load mixed 


74 


RX 


R1,D2(X2,B2) 


M 


Multiply 


5C 


RX 


R1,D2(X2,B2) 


MD 


Multiply, long 


6C 


RX 


R1.D2(X2,B2) 


MDD* 


Multiply normalized, double 


65 


RX 


R1.D2(X2,B2) 


MDDR" 


Multiply normalized, double 


25 


RR 


RKR2 


MDR 


Multiply, long 


2C 


RR 


R1,R2 


ME 


Multiply, short 


7C 


RX 


RI,D2(X2,B2) 


MER 


Multiply, short 


3C 


RR 


R1,R2 


MH 


Multiply half-word 


4C 


RX 


RI,D2(X2,B2) 


MP 


Multiply decimal 


EC 


SS 


D1(L1,B1).D2(L2,B2) 


MR 


Multiply 


IC 


RR 


R1,R2 


MVC 


Move characters 


D2 


SS 


D1(L,BI),D2(B2) 


MV[ 


Move immediate 


92 


SI 


DI(B1),I2 


MVN 


Move numerics 


Dl 


SS 


DI(L,Bl),D2rB2) 


MVO 


Move with offset 


Fl 


SS 


DI(L1,B1),D2(L2,B2) 


MVZ 


Move zones 


D3 


SS 


Dl(L,Bl),D2(B2) 


N 


AND logical 


54 


RX 


R1,D2(X2,B2) 


NC 


AND logical 


D4 


SS 


DI(L,61),D2(B2) 


Nl 


AND logical immediate 


94 


SI 


D1(B1),I2 


NR 


AND logical 


14 


RR 


R1,R2 


O 


OR logical 


56 


RX 


R1,D2(X2,B2) 


OC 


OR logical 


D6 


SS 


D1(L,B1),D2(B2) 


01 


OR logical immediate 


96 


SI 


D1(BI),I2 


OR 


OR logical 


16 


RR 


R1,R2 
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Opera- 


Basic 


Operand 


Mnemonic 




tion 


Machine 


Field 


Code 


Instruction 


Code 


Format 


Format 


PACK 


Pack 


E2 


SS 


Did LB! ).D2(I2,B2) 


RDD^ 


Read J !i eel 


.s5 


SI 


DI(B!).12 


S 


S'.iHti.ict 


.^B 


RX 


Ri.D2(X2,B2) 


SD 


SahtKicI !U.:::;ili/od. knm 


6B 


RX 


RLD2(X2.B2) 


SDD" 


SuPtiJc-t ;u)i!;Kili/L'd. doubk 


(i7 


RX 


R!.I)2(X2.B2) 


SDDR^ 


Sabfrnct luiri^iali/od, Joiible 


27 


RR 


RLR2 


SDR 


S'.:btrart narniali/ed, long 


2B 


RR 


RLR2 


SE 


Siihtract nurmali/.od. short 


7B 


RX 


RLI)2(X2.B2) 


SER 


Subtract iiuinuiii/eJ. s'lort 


m 


RR 


RI,R2 


SH 


Subtrai.t lijltAvord 


4B 


RX 


RII)2(X2.B2) 


SIO^ 


Stan l;o 


'>C 


SI 


DKBl I 


SL 


SiibtKK ; lowcjl 


-SE 


RX 


RL!)2(X2.B2i 


SLA 


Sliitt left. sint;lo aigobMic 


^B 


RS 


R!,D2(B2) 


SLDA 


Shin left, double algebraic 


SE 


RS 


R1.D2(B2) 


SLDC 


Shift left, double logical 


SD 


RS 


Ri.D2(B2) 


SLL 


Shift left, single logical 


S'-) 


RS 


R1.D2(B2) 


SLR 


Subtract logicai 


iE 


RR 


R1.R2 


SLT" 


SearJi list 


A 2 


RS 


M1,I)2(E2,B2) 


SP 


Subtract deciniai 


IB 


SS 


I)!{EI,BI}.D2(E2.B2) 


SPM 


Set piogiam nsask 


04 


RR 


Rl 


SR 


Sul-i tract 


IB 


RR 


R1.R2 


SRA 


Shift rit;ht. single algebraic 


HA 


RS 


RL1)2(B2) 


SRDA 


Shaft light, double algebraic 


HE 


RS 


RL1)2(B2) 


SRDL 


Shift riglit, double logical 


H' 


RS 


RI.1)2(B2) 


SRL 


Shift ngl'.t.smgie logical 


HH 


RS 


Rl.l)2(B2) 


SSK^ 


Set Nvsteni key 


OS 


R 


RLR2 


SSM^ 


Set systervi mask 


SO 


S! 


DUBI i 


ST 


Sloie 


^0 


RX 


R1.1)2(X2.B2) 


STC 


Stv)re character 


42 


RX 


R],1)2(X2,B2) 


STD 


Store h-ng 


oO 


RX 


RLD2(X2B2) 


STE 


Store ^hort 


■^0 


RX 


R!.D2(X2.B2) 


STH 


Stoie halt-word 


4U 


RX 


R1.D2(X2,B2) 


STM 


Store riiulriple 


'H) 


RS 


RLR-vD2(B2) 


STMC^ 


Stoie nuaiiile contiol 


BO 


RS 


RLR.LI)2{B2) 


STRD* 


St(,ue Kumded.Umg 


u\ 


RX 


Rl,D2tX2.B2> 


STRE" 


Stori; ioundevi. short 


71 


RX 


RL1)2(X2.B2) 


SU 


Subtia^t unnor:Tiali/ed. sluut 


7E- 


RX 


Rl.l)2tX2,B2) 


SUR 


SubiKi'.! uiinoriiuh/ed. short 


M 


RR 


RI.R2 


SVC 


S ape r\isor call 


OA 


RR 


1 


sw 


Subtract uiuioruijli/eil, long 


(T- 


RX 


R1,D2(X2.B2) 


SWR 


Subtia.t uiinoriiiah/ed. long 


2E 


RR 


RI.R2 


sx" 


Subtract uorusaived. mixed 


77 


RX 


R1,D2(X2.B2) 


TClf 


Test chaiM'el 


'.'!• 


Si" 


DhBI ) 


TIG'- 


Test i.O 


')D 


SI 


DKBl ) 


TM 


Test under mask 


'M 


SI 


DMB1).I2 


TR 


Translate 


DC 


SS 


1)1(1, Bl).D2<B2l 


TRT 


TransLiie and test 


DD 


SS 


1)1(1 .Bl ).[)2(B2l 


TS 


Test a-ui set 


'>.^ 


SI _ 


DKBL, 


UNPK 


Unpack 


is 


SS 


DKLLBl ).D2(L2.B2) 


WRD^ 


Write diixvt 


S4 


SI 


Dl(Bi),12 


X 


Exclusive OR 


_„..__ 


RX 


"Rr,D'2(X2,B2") 


xc 


EacIu-ivc or 


1)7 


SS 


DIU .Bl 1.1)2(152) 


XI 


Ex.l.i--ive OR. immediate 


1)7 


Si 


1)I(B1).I2 


XR 


Lx.l-i'.ive OR 


17 


RR 


RLR2 


[zap 


/ert; and add decimal 


ES 


SS 


1)1(1 LBI).D2U 2,B2) 



' Limited to 244-11: addies; 

^ Privileged instaKtn.r.s, 

"* Users in 24-hit -.-.ode mu 

LA adding teclimq ;e. 

* RPQ (request price cpiot^ 
mnemonic codes a^ mac: 



■ re>tiicled from using these 
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Extended Mnemonic Instruction Codes 



Extended Code 


Instruction 


Machine Instruction 


B D2(X2,B2) 


Branch unconditional 


BC 15,D2(X2,B2) 


BR R2 


Branch unconditional (RR format) 


BCR J5,R2 


NOP D2(X2,B2) 


No operation 


BC 0,D2(X2,B2) 


NOPR R2 


No operation (RR format) 


BCR0.R2 


Used After Compare Imtructions | 


BH D2(X2,B2) 


Branch on high 


BC2,D2(X2,B2) 


BL D2(X2,B2) 


Branch on low 


BC4,D2(X2.B2) 


BE D2{X2,B2) 


Branch on equal 


BC8,D2(X2,B2) 


BNH D2(X2,B2) 


Branch on not high 


BC 13,D2(X2,B2) 


BNL D2(X2,B2) 


Branch on not low 


BC 11,D2(X2.B2) 


BNE D2(X2,B2) 


Branch on not equal 


BC 7,D2(X2.B2) 


Used After A rithmetic 


Instructions 




BO D2fX2.B2) 


Branch on overflow 


BC KD2(X2,B2) 


BP D2(X2,B2) 


Branch on plus 


BC2,D2(X2,B2) 


BM D2(X2,B2) 


Branch on minus 


BC4,D2(X2.B2) 


BZ D2(X2,B2) 


Branch on 


BC8,D2fX2,B2) 


Used After Test Under 


Mask Imtructions 




BO D2{X2,B2) 


Branch if Is 


BC 1 ,D2(X2,B2) 


BM D2(X2,B2) 


Branch if mixed 


BC 4,D2(X2,B2) 


BZ D2(X2,B2) 


Branch if Os 


BC 8,D2(X2,B2) 
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Assembler User Macro Instructions 


IJA! A SETMANACtMfcM 


PROGRAM CONTROL MANAGEMENT 


Define nuaSct 

1)1)1 I- ( 1)1) 
1)( B DM 
(A[ !)(- HI) 
M\i)l)S' ll\|).ll(ir^= 


Virtual Storajie Maiiajjemeiit 

(,l IM \l\ IX 1 \SS 

rR[!M\i\ KSPRV 

( sioRi 1 s< iir- 

(kC 1 s 


{ uimei-t D.iki Set toSvsleiii 

DIM \ DCOIM N iVAM onh I 


I'roijrani I.inkinii and l.oadmu 
\1)(()M) DM 1 11 
\1)(()\ SWl 
ARM Rl 11 KN 
( Al 1, DM i- i ^ 
lOAD DllXk" 
1 \ li R- Rl SI Ml '' 
1 IHl SR( ID SI OR! • 


Aceevv l):U:) Set 

VSAM VISAM VPAM 

1,1 1 (.1 1 1 IM) 
in 1 IH'I STOW 
I'l IX Rl \1) lORFO 

^^'<'^' ORO 
BSAM Slil, ,Hl'k 
Ki AD '^^' " \i{\\ 

\\\u\\ iniRii 

(IIKk HIT IX 
D(.)Di< B QSWl 
<.[ I pool ( }. 1 
<a IBlt p^ J 
1 \<\ I HI 1 |>^ jv^ 
! KM-.i'OOl, Ki.isi- 

\oil 


interruption Haiklhui! 
SIR SiK 
SPIC DIR 
SSIC SAI 
SIK H\l 
SAIl l\IIN<.) 

sue ([All 

I'SAl 1 MID 
MPOl ■ 111 
PID^ 


FransterK) Command Mode 
I'Al SI AHl \D 
COMMAXD OBi \ 
IXll RIRX- 
(1 IC ( 1 IP 


Manipulate Kiitire Data Set 

r. '/.M P'f.; S, : B'lJk Du'pu! 
(1)^ BR 
IT 
W I 


CnnununieatioiisuithSVSIN SYSOUT 
(,AIRD (,1\\R< MCAST 
(,A1WR (,iWSR 
(,1\VAR S^SIN 
M'nOWR PRMPi 

( onnminieatioiis v\ itli Ojierator and Log 
W 1 O W 1 I 
WIOK \\|{)\ 


(alaUiu Data Set Attributes 
( Al 
1)1 ! 


l)isu>!iiKvt Data Set Ironi Svslem 

<1 OS! I)U'( 1 OS! {VAM oii!\ i 

Rei]i<)%..' Data S.t Im r, Sv^Kiii 

I k \-i 
KM 


lask- 1 iniing Maintenanev 

SIIMIR i H( nl IMl DSA(,I 

1 1 IMt R Rl DllM 

( ommand ( reatmn 
HPkD (,D\ 


Lancuage Processing 

LP( 1 Dir 
Ll'C IXII 


S\Meni-()rienled Macro Instructions 

A[;XI'(,^ VS1\I)R'= 
AWAIT- XIRSYS* 
PIRK^ XI RIM* 
PDI.SI * XIRCI '■ 
PR IS! Nl* 
RDl* 

rsi:M)* 

rWAIM 
VSl ND* 

xrRxrs'= 



^Available tn tuuiprivlegcd t 
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Operand Expressions 

Operands of macro instructions may be expressed in several ways: 



alphabetic 
alphameric 
special characters 
special symbols 
relocatable expression 
absolute expression 

explicit address 
implicit address 
register notation 

text 



A-Z$@# 
A - Z $ @ # 0-9 

+ -, = .*()/& and blank 
1-6 alphameric characters and + -.*'/& 
changes when program is located 
value remains constant when program is re- 
located 

displacement (index register, base register) 
symbolic address {(index register)] 
absolute expression enclosed in parentheses 
that evaluates from 0-15. 

character string enclosed in apostrophes; em- 
bedded blanks and special characters per- 
mitted; two apostrophes or two ampersands 
represent one apostrophe or one ampersand in 
character string; text operand limited to 255 
characters, including enclosing apostrophes 

characiers character string not enclosed in apostrophes; 

no embedded commas or blanks; two apos- 
trophes or two ampersands represent one 
apostrophe or one ampersand 

oplist series of operands or list in text format or 

coded somewhere else and addressed with 
addr expressions; when operand list is coded 
elsewhere, operand string ends with end-of- 
message code, hexadecimal 27 

Expression Abbreviations 

Abbreviations used when more than one operand expression represents 
one operand value: 

addr relocatable expression, register notation 

addrx register notation, explicit address, implied 

address 
addx explicit address, implied address 

value register notation, absolute expression 

integer decimal integer, absolute expression 
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Assembler Macro Instruction Formats 


Name 


Operation 


Operands 


symbol 


ABEND 


compcode value \ 7 > , message { addrx x 

1,0) *3H In) * 


symbol 


ADCON 


/ CALL \ 
\ LOAD / 
type code ( DELETE / (.EP=symbol) 
1 IMPLICIT \ 
\ INTERNAL / 

n r-»r:oo i P^ss rctum codcs - CODEil 
l^^^-'^'^l take error exit - ERR / 

r p^p, Qpy_ i specified module only - SMO { 
] all associated modules - SDM j 

[,HSHTAB=>^|;|^}] 




ADCOND 


none 


symbol 


AETD 


|( |ep-symbol, sa-symbol | ,...)| 


[symbol] 


ARM 


loc-addrx,extref-addrx 


return data: 

reg 1 5 = address of initialized or altered adcon 

group 


symbol 


BPKD 


ep-symbol | iparum-relexp,...)] 



BSAM (basic sequential access method) 



1 symbol I 


READ 


decb-symbol,type { SF| SB [ ,dcb-addr 
,area-addr[, length j'S'lvalue} | 


(symbol] 


WRITE 


decb-symbol,type-SF.dcb-addr,area-addr 
[, length {'S'lvaluejl 


f symbol] 


CHECK 


J , iaddrx 1 

decb \ i 

(1) 1 


bymbol] 


DQDECB 


i addrx 
decbJ 

1 (L) 

return data; 

reg = number of unchecked DECBs in queue 

reg 1 = pointer to list of unchecked DECBs 


[symbol] 


GETPOOL 


i addrx i , | number-valuejength-value 1 

'^*l(i)i 1 (0. 1 


[^ymbol] 


GETBUF 


^ , (addrx 

deb 1 } ,repster-absexp 


[symbol] 


FREEBUF 


i addrx 1 

deb < } ,register-absexp 


[symbol 1 


FREEPOOL 


t addrx i 
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Name 


Operation 


Operands 




BSAM 


(Continued) 


f symbol] 


BSP 


1 (1) ( 

return data: 

reg 15 = 00 if normal completion or if 

permanent positioning error 

occurs 
04 backspacing did not occur 


1 symbol] 


CNTRL 


dch \ '^^^^^ i Jaction-codel , number-value] f 

1 (1) i ( (0) \ 


[symbol] 


FEOV 




1 symbol] 


POINT 


dcbj^ddrxlj^ (addrx 1 
j (1) ( \ (0) » 


[symbol] 


NOTE 


dcbh^^-( 
(1) ( 

return data: 

reg 1 = block ID of last block read or written 



[symbol] 



CALL 



entry 



symbol^ 

15) f 



jsyi 
I C 



,l(param-addr,...)|,[VL] 



|,loadtype-{E \ [\ ] l,ID=absexpl 



register setting: 

reg 1 = contains address of parameter list 

reg 14= valid return address 



; symbol] 



CAT 



,. ^ ( text 
\ addr J 



where oplist equals: 
dsnamci -name,state< >,[ access | > 1 , 
^ [dsnamca -name] 

|GDG=name,gnumber-integer,[ action ^ ^/ 1 



return data: 
reg 1 5 = code 
(hex) 
00 

04 



oc 



20 

24 



significance 
cataloged 

name cannot be changed 
since new dsname not 
unique; no cataloging 
invalid element in input 
string 

no cataloging for 
other reasons 
data set name not unique. 
already in catalog 
data set volume not 
mounted, cannot catalog 
ABEND request 

Vam data set not GIX] 
or rename option 
Open DCB 
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1 symbol] 


CDD 


-"-{ir.} 


where oplist equals: 






dsname-name | ,DDN AME=ddname-symbol, , . .1 


return data: 






reg 1 5 = code 






(hex) signiticance 






00 normal 






04 invalid dsname 






08 invalid ddname 






OC ddname not in data set 






1 error return from DDEF 






14 not line data set 


[ symbol! 


CDS 


--!r! 


where optlist equals: 






dsname 1-symboU (member name,...)] 






,dsname2-symbol [(member name,...)] 






[ERASE={Yi| 






[ ,line-integer] t , increment-integer] 






,REPLACE= 11^ I 


return data: 






reg 1 5 = code 






(hex) significance 






00 normal 






04 invalid input parameters 






08 original data set name 






not in catalog or task 






definition table (TDT) 






OC data set not in catalog, 






no DDEF macro instruc- 






tion or command executed 






1 JFCB for original data 






set not consistent with 






JFCB for new data set 






14 member name hot given 






for partitioned data set 






1 8 user does not have write 






access for new data set 






1 C original data set not 






VAM or SAM 






20 data set not on direct- 






access; command ignored 






24 new data set member 






name already in POD 






28 data set copied, old data 






set not erased; user does 






not have proper access 






2C data set copied, new data 






set not renumbered, not 






a line data set 






30 data set copied and re- 






numbered, old data set 






not erased, user does not 






have proper ^access 



(continued) 
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Name 


(Relation 


Operand 






34 data set copied and orig- 
inal erased, new data set 
not renumbered, not a 
line data set 

38 data set copied, new data 
set not renumbered, old 
data set not erased 


[symbol] 


CLATT 


none 


[symbol) 


CLOSE 


({dcb-addr,[opt j^l^^ADJ j j ^| ,tyPE=T| 


[symbol] 


COMMAND 


message I addrx> 

L Un L 




[symbol] 


CSTORE 


module-symbol, epname-symbol,address-addr, 
length-value,attribute-value 


return data: 

reg 15= Code Significance 
00 normal return 
04 module name or entry 

point name already in use 




DCB 




Applicable Access Methods 




VSAM 


VISAM 


VPAM 


BSAM 


QSAM ' lOREO 1 


[DUNAMJ =symboll 


X 


X 


X 


X 


X 


X 


|,nSORG=Lodcl 


vs 

VSP 


VI 
VIP 


VP 


PS 


PS 


RX 


i.RK rM = codcl 


X 


X 


X 


X 


^ 


X 


(IRLn-abscxpl 


^ 


X 


^ 


X 


X 




|.l-:Ol>AD=syrnboli X 


X 


X 


X 


X 




|,OPI{"I)=«.ndL-| 


X 


X 


X 


X 


^ 




l,SYNAI)=symbol| 




X 


X* 


X 


X 


X 


(,PAn=absexpi 




X 


X* 








|.RKP=absexp| 




X 


X. - 




|.DKVD=Lodo| 


[ 1 




X 


X X 


[.KtYI I-,N=jb«.-xp| 




X 


X* 


X 




X 


|;iRT{-H = codel 








X 


X 


X 


[.PRTSP=absL-xr| 








X 


[, MODI- =1. (Kiel 






X 


|,STACK=abscxp| 












X 


|.MACRI=codel 








X 


X 




[,BLKSIZE:=absexp! 








X 


X 




(,IMSK=todel 








^ 


X 




|,P XI ST= symbol! 




_ 




X 


^' 


1,NC-P=absfxp| 




! 


X 




X 


|.BLtM)=abscxpl 








X 






|,BI ALN-codc] 








X 






[.Bi:H.--absexpl 






X 






(.B[lTK=codci 








X 






I.BUI CB^addr] 








X 




(.KROn=LCHle| 








i " 




• = VISAM members of partitioned data set 
1. = some established ¥alue assumed by system 
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DCBD 


none 


'; [symbol] 


DDEF 


°P"''{iddr} 


where oplist equals. 

< ddname-symbol 1 f i fVlll 

\k-sout 1 [■^^"■"'^IvslJ 

,DSNAME=data set name 
|.DISP= lOLDINEW} 1 


See DDEF command lor additional operands 
return data; 
reg 1 5 =^ code 

(hex) significance 

00 no error 

04 data set name undefined 

08 data set name not unique 

OC attention irilerruption 

10 DSORG inconsistent 

14 nonexistent generation 
name specified 

18 DSNAME not fully 
qualified 

20 space not available 

40 ddname not unique 

80 other 

Note; When reg 1 5 contains a nonzero code, reg 1 
contains the identification of the diagnostic 
message that cxplams the error. 


1 symbol 1 


DEL 


, fname) 

dsname< . , > 

laddr | 


return data: 
reg 1 5 = code 

ffie.x) signit^eance 
00 vahd return cc^de 
OS invalid re 1 urn trom NHXl PAR 
OC invalid dsname (input preceded by 

left parenthesisj lor NhXTPAR 
10 lio dsnanie supplied alter veib 
14 return code from CUhCKDS nut 

divisible by 4 
24 data set not cataloged 
28 data set on public vr.lume 
2C data set name member ot pailitioned 

data set 
34 sharer does not lijve uidimiied 

accesN to data se! 
40 attention intenuption 


[symbol] 


DELE 1 1 i L.P=svmbol \ 


1 symbol] 


DIR 1 (i.b-addr....) 

return data: 
; rcy 1 = addiosM)! any invalid ICH 
re g 15 = code c (^.U^^ ' • '• ^ '' ' ^ 

04 It'BcoplamsHivalid IX Bitoi 

1 lllplU/OUtpilt ai;d ;l^y!lClllO:lOU^ 

ICBs only), tn ir.valid time 
iiileival oi clock numbci wj.s 
speeilied 
08 (u> routine specified 
OV inter- upt servicirg luuluie i>. 

active (no turllier lnterr^lpt^ wil! 
be picviited lo interrupt routine 
until current servicing actir-n 
completed) 
lU invalid para:neter iinviilid longtii 
speched.or nonprivileged user 
1 attempted to DIK prisilcged 
j routine) 
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jName 


Operation 


Operands 


I symbol] 


DQDECB 


, , (addrx) 


return data; 






reg = number of unchecked 






DECBs in the queue 






reg ] = pointer to list of unchecked 






DECBs 




DUPCLOSE 


dcb,-addr,dcb2-addr 




DUPOPEN 


dcbi -addr,dcb2 -addrf ,opt-codel 


For valid codes, see OPEN 


{symbol] 


EBCDTIME 


oplist.(*^f,^ ),[time-addrjrx=(f^'^f ,)1 
^ \addrJ'' L l (register) 1 J 


[symbol] 


ERASE 


i text 1 

dsname < ^ , } 

\ addr | 


return data: fourth byte of general register 15 set to: 






code significance 






00 no error detected 






04 not class D or batch monitor entry 






08 invalid return code 






OC invalid delimiters in data set name 






10 no data set name supplied 






14 invalid return code from CHEKDS 






module 






18 data set name not m catalog or 






TDT 






IC partitioned data set not fully 






qualified name 






20 member of partitioned data set not 






found in POD 






24 data set not cataloged 






28 data set on public volume 






2C data set IS member of 






partitioned data set 






30 user does not own data set in 






ERASE batch monitor entry 






34 sharing/access conflicts prevent 






processing 






38 no catalog entry for ERASE 






batch monitor entry 






3C data set name undefined; return 






code from DDEF 






44 data set not on direct access 






48 volume not found 






4C system JFCB 






58 data set in use 






5C resources exceeded 






1 text I 


[symbol] 


EXIT 


message { addrx) [.NOMSGI 

1 (1) ; 


[symbol] 


FREEMAIN 


i PAGE[.VAR|| j^y^ 4 value ) ^^ | addrxl 


return data: 






j-e„ 1 S = code 

(hex) significance 






00 normal return 






04 unsuccessful, no storage freed 
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(symbol] 


GATRD 


msg-addr,length-addrl ,SIC1 


return data: 






length-addr=sel to actual length 






reg 1 5 = code 






(bits 






16-23) significance 






input record contains no cintinu- 






ation code, record complete 






1 input record contains continuation 






code; issue GATRD for next 






portion of record 






2 record truncated; exceeded maxi- 






mum length specified by user. 






(bits 






24-31) 






SYSIN IS VSAM fixed-length 






records (nonconversational) 






2 SYSIN is VSAM variable-length 






records (nonconversational) 






4 SYSIN is VISAM (nonconversa- 






tional) 
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attention interruption occurred 
during input or output; 
record unpredictable 
SYSIN/SYSOUT received from 
terminal keyboard 
SYSIN received from card reader 
at terminal 



[ symbol] 



GATWR 



msg-addrjength-addr 



return data: see GATRD codes 8 and 10 



[symbol] 



GDV 



addrx 
com- < text 
(1) 



(symbol] 



GETMAIN 



jPAGELVAR] 

^ 'i 

[,PACK=0lll21| 

LEXIT= RETURN 



LV= 



j value [,PR=integerl 
^ (0) 



return data: 

reg 1 = address of allocated virtual storage 

reg 1 5 = code 

(hex) significance 
00 normal return 
04 request cannot be satisfied 
08 bytes specified with invalid 
protection class 



[symbol] 



GTWAR 



msgout-addr,lengthout-addr, 
msgin-addr Jengthin-addr[ ,S1C1 



return data: see GATRD 



CTWRC 



msg-addr,lengt]i-addr 



return data: see GATRD codes 8 and 10 



symbol] 



GTWSR 



msgout-addr,lengtliout-addr, 
msgin-addrjengt]iin-addr[ ,SIC] 



return data: see GATRD 



symbol] 



INTINQ 



icb-addr 



,MODE= { CLEAR 

(C, branch-addr, \\ 
TYP-code // 



return data: 

reg 1 5 = 00 normal 



undefined routine specified (modes 
C,W, CLEAR) 
bad parameter list, conditions 
specified cannot be met 
(modes W, C) 



lOREQ (input/output request facility) 



[symbol] 


]OREQ 


decb-symbol type- j N IB } ,dcb-addr, 
vccw-addr,length-valye,sio-value,IMSK=code 

return data; 
reg 1 5 = code 
(dec) significance 

I/O initiated 

4 NCP value in data control block 
exceeded (I/O not initiated), or 
DECB "active" or in "wait" 
state 
8 I/O not initiated ;VCCW list 

contains error ; rule for forming 
VCCW list violated (refer to the 
lOREQ: VCCW macro instruction) 
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Name 


Operation 


Operand 




lOREQ 


(Continued) 

1 2 J/O not initiated , area needed 
for lOREQ too large; reduce or 
change VCCW list 


[symbol] 


CHECK 


dec. {^^f-} 








WRITEIOl \ 








READI02 J 


{symbol] 


VCCW 




, .,. . NOPI03 I 






comma nd-^ 


'symboricode ™^,q^ 

TIC 108 
READBKIOC 
, absolute expression 






data-relexp 






count-absexp | ,flag-( { CD ICC INCC ISCC llOCf 






,[SIL] l,SKPl)l 





i EP=symboI ) | 


[symbol] 


LOAD 


JEPLOC=f?fff j 


[symbol! 


MCAST 


[CTT=addrx] [,EOB=addrx] [,CONT=addrx] 




[.CLP=addrx] ,TRP=addrx] [,DIV=addrx] 




[,SSM=addrx] [.USM=addrx] I,PL=addrx 






,CP=addrx] [,KC=addrx] [,RS=addrxl 


[symboll 


MSGWR 


msgcode-addr,[ varinf-addr] 
{ ,rarea-addr,rlength-addr] 


return codes 






riength = actual byte length of response 






reg 1 5 = code significance 






no attention interrupt: no error 




m response length (if applicable) j 






4 response too long for area 






specified 






8 attention interrupt occurred; 






response unpredictable. 






( addrx i 




[symbol] 


OBEY 


com- < text > 
I 0) ) 




[symbol] 


OPEN 


(|dcb-addr,[(opt, -code [, op t2 -code] )],■,...) 


where opti code can be: 






INPUT input data set; value is assumed 






if opt is omitted 






OUTPUT output data set 






INOUT data control block opened as if 






INPUT opt was specified: 






both input and output opera- 






tions allowed 






OUTIN data control block opened as if 






OUTPUT opt was specified; 






input and output operations 






allowed 






RDBACK positions an input data set to 






be read backward (magnetic 






tape only) 






UPDAT allows updating of existing 






data set (direct -access devices 






only) 






r (text j 




[symbol] 


PAUSE 


message- { addrx > 








( (1) f 
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[symbol] 



[symbol] 



PR 



PRMPT 



opiist- 



text 
addr 



where oplist equals: 
dsname-namejstartno-integerj [endno-iiiteger] , 

EDIT \ 

spacing- / J -^ { ,|Hl,llmes-inlegerl,[P] V 



,ERASE^ 



i 
III] ■ 



I ACCEPT i 

[error- / SKIP ' 

f END ( 



llJorm- 



specysml 



return data: 

reg 1 = batch sequence number 

reg 1 5 = code significance 

PR request accepted. 

^^ register 1 5 contains two-byte 

other message number, 
codes 



.. -addrl (N i 

msgid- { I ,resp opt :' P J- |.u.scr resp-addr] 

text I I u i 



i addr ^ 
■{■ex,} 



return cc^des; 

reg ] 5 = code significance 



UO 

04 

08 

oc 

10 



IC 
20 

24 



no errors; normal return 
I/O error 
system error 

message could nut be found 
message filtered out by user due 
to choice of message display, 
level or length in user profile 
insufficicitt t)utput buffer space 
available, message truncated 
explanation not in message tile 
match)r\g response not in prede- 
fined responses of message file 
invalid response option specified; 
not N, P or LI. 
message continued 
attention interrupt during I/O 
operation 

message not issued; search for 
message text terminated after 
fifteenth reference pointer found 
invalid response code found for 
a predictable response 



[symbol] 



PU 



1 * I text J 

ophst- { ] 

I addr I 



where oplist equals: 

dsname-nanie,,[startno-integer] 4endno- 
integerj , 



[select- 



1- 



/ 



,[ERASE={^)]i,..n 



return data: 

reg 1 = batch sequence number 
Significance 



reg 1 5 = Code 

All 
other 

codes 



PU request was accepted 

register I -S contains two-byte 
message number 
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QSAM (queued sequential access method) 



Name 


Operation 


Operand 


[symbol J 


GET 


dcb-{t,r}[-— {To^}] 


[symbol] 


PUT 


''*{lf)1[--{io;r 




[symbol] 


PUTX 


dcbou.. {^ff;^}.[dcb,n-{addr.}] 


[symbol] 


RELSE 


dc.{--| 


(symbol] 


TRUNC 


dc.{--} 


(symbol! 


SETL 


deb- 1^:;?;''}, type ICiRIBIEIPJ 

f ,,. ., i addrx ) , 
[Jhmit-| ^(j^ ^] 



[symbol] 


RAE 


[area-addr] 


[symbol] 


REL 


,. ^ 1 text ) 


where oplist equals: 
ddname-symbol [.dsrame-name] 


return data: 

reg 1 5 = code 

(hex) significance 
00 normal 

04 defaulted, invalid ddname 
08 attention interrupt 
OC reserved ddname specified 
iO undefined ddname 
14 uncataloged on public storage 
18 undefined dsname 
20 spurious input 
24 unable to unload ail modules 
loaded from library 


[symbol] 


RETURN 


[(regi -integer! ,reg2 -integer] )] [,T] 
r rabsexpl] 
L I (15) /J 


[symbol] 


SAEC 


[EP={^V-b°'J|,DCB=addr|] 

(,COMAREA=addrl 

r , . (lAlSiR] j.codel ..,) l' 
INTTYP L NULL / 
JATTNTYP( j s^,,g , 

L ( RESTORE 1 

[,MF=LI(E.,cb-|^^;'n)] 
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[symbol] 



SAI 



[area-addr] 



[symbol] 



SAVE 



(regi -mteger[,reg2 -integer] ),{TI 
[, entry point ID -i 



haractersi . 



where * denotes name field symbol 



[symbol] 



SEEC 



jgp^ I symbol I J [,cOMAREA=addr] 
[,INTTYP=integer][,MSGAREA=addr] 
[,MSGLTH=mteger](,MF=Ll(E,icb-l^^^''''l)| 



[symbol] 



SIEC 



i symbol ) , 
[EP=| Q |1 [,DCB=addr] 

r , ( addrx ) n 

,COMAREA=addr][MF=L|(E,icb-| (|) \^ 



[symbol] 



SIR 



(icb-addr,...){,PRTY-integerl 
[,INHIBIT= lYESINOf ] 



return data: 

reg 1 = address of invalid ICB 

reg 1 5 = code condition 

04 ICB contains invalid DCB (for 

input/output, asynchronous ICBs 
only), or invalid time or clock 
number specified 
08 ICB specified previously by 

another SIR macro instruction 
OC invalid parameter (ICB, length 
invalid, nonprivileged user 
requested privileged priority or 
has privileged flag on in parameter 
area) 
10 total user time will exceed 7.5 
hours; time not set 



fsymbolj 



SPEC 



[EP=symboll [,COMAREA=addrl 



jNULL 

f SAVE 
I RESTORE 



ALL 

1 code-integer 
integer -integer 
integer-range 



[.MF^UCE^cb-l^^^;"})] 



[symbol] 



SSEC 



IEP=l'y^^°'l][,COMAREA=addr] 

[,lNTTYP=integerl 

[,MF=L|(E,icb-{"ff{'^})l 



[symbol] 



STEC 



lEP=|'y^^°'l][,COMAREA=addrl 

^TAQKrniD*NTVL=addr\ 
^^^'^"'\BINTVL=addr.f 



^1NTTYP= i 



REALn 

I 

i addrx \ . , 
,MF=Ll(Ejcb-l ,j. >)] 



DlNTVL=addr 
) BINTVL=addT 



]TOD=addr , 

(lX)|wlMlY}=addr) 
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Name 


Opera tion 


Operand 


[symbol] 


STIMER 


/ TASK|,exit-symbol]iDINTVL=addr) \ 
1 lBINTVL=addr j 1 

(j'REAL|,exit-symbol ]\ i DINTVL=addr J I 
Await 1 ) BINTVL=addr f 
j i TOD=addr I 
\ ( DO |wlMtY| =addr) / 

[,TNO=] 01 integer [ ] 


return data; 

reg 1 5 = code significance 

00 normal return 

04 invalid time interval or invalid 

clock number specified 
08 total user task time specified 

exceeds 7.5 hours, timer was 

not set 


[symbol] 


SYSIN 


msg-addr,length-addr[, source-code] 
[,prmpt-addr] [,exit-addr] 


return data; 

reg 1 5 = code significance 

00 normal return 

04 user's input line truncated 

08 attention interruption 

OC immediate command detected and 

executed 
10 input line m keyboard format, 

normal return 
14 input line in keyboard format, 

line truncated 
20 card reader format, normal return 
24 card reader format, line truncated. 


{symbol I 


TTIMER 


1 REAL \ ''CANCEL! [,TNO= |0I integerf | 


return data; 

reg 15= code significance 

00 normal return 

04 invalid clock number specified 




USAGE 


area-addr[ ,userid-addrl 


[symbol] 


USATT 


none 



VSAM (Virtual sequential access method) 



[symbol} 


GET 


, . 1 addr 1 


[•-{1^1 








return data: 

reg 1 = in locate mode, address of next 
sequential record 


[symbol] 


PUT 


dcb-l^d^^nr ,area-|^^^'''^l' 
I (1) /[ ^^ (0) ' . 








return data: 

reg 1 = in locate mode, address of output 

buffer for next sequential output 

record 


[symbol] 


PUTX 


dcH--} 


[symbol] 


SETL 


a.J^-;|,.pe|},..H:;-}. 
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VISAM (virtual indexed sequential access method) 



Name 


Operation 


Operand 


[symbol] 


GET 


, ^_ 1 addr i 
deb- \ 


J addrx 1 

.area- \ / 

' CO) ' __ 




f symbol] 


PUT 




1 addrx j 
,area- / 

I (0) ' 




1 symbol] 


RIAD 


decb-symboltype-| - KY 1 KZ i KX[ ,dcb-addr 
,area-addr, key-addr 


1 symbol] 


WRllii 


dccb-symboltypej- KR 1 KS 1 KT(,dcb-addr 
,area-addr, key-addr 


(symholl 


SI TL 


^^j^_ 1 addrx |_^yp^,_ |rBIEIPIKIn( 






1" addrx j " 
,1 limits- ; / 

1 (0) » 




f symbol] 


ESETL 


i addrx 1 

deb- ' ,' 
1 (ll « 


1 symbol] 


DELREC 


deb- •! ^'^'^''"^ < .tvpc- ) i) i dl.M.t-j -^^'^^ { 


f symbol] 


RELEX 


deb-f'^f^^J. 
I (1) f 









VPAM {virtual partitioned access method ) 



EIND 



STOW 



deb-addr.name-addrl ,area-jddr,lcnizth-value ] 

reliirr. datj: 

iL'e() = Icnutti i.t user daUi in POD 
lee 1 = pi'ints t<' p;iMiiicto; IinI 
reg 15 -ci^dc 

(l:ox.» siiiiiillcaiicc 

~T){}" ^lceos^!ui^<lnlpkMK;n Mi f-IM) 
1)4 Member n: alius isol iocjlej In 

FIND 
OS dijta ci'Mlroi block, indicated 
Ml tnaeio mstruetion. in use t-.i 
eieate (iiember . exeeut'on ntSTCJW 
niuM he C'.niiplcle helore F INI) 
10 length specified in iviacrn itisirue- 

':t)n ni'l Ln\ye eiioiigli lot user data 
14 inember to he iocaled aiieadv lipcii 
toi iliis data cniitr^i! hlnek.due 
tMp;evic-us MM) 

deb ) -''^^^'^ ^ - I area- > ''^'^'^ j- I 

1(1)^1 I (0) i I 

.typeJN NA NAR R Li Di DA ("IC a[ 

retnin dala 
bi(s 24-.^! rec 15: 
.ode 
(hex ) siunii'ieancc 



(,)() suecessUii coniple1i(ui ot SI OW 
04 ficw name or alias already in use 

(N. NA.C.orCA) 
OX member name nr.i m {'()I)(l . I), 

DA. r,r( A.) 
10 old meniher name not in POD((). 

alias lu.l in POD ( DAl, old alias 

not in PODf( A) 
14 invalid STOW type requested 
\X. user data exceeds maximuin 

length of 5 10 bytes 
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[symbol I 



Operation 



WT 



Operand 



oplist- 



I text ) 
\ addr / 



where oplist equals: 

dsnamci -naine,dsname2 -name, [volume -alphnumj , 

[factor-integer] .[startno-integer] ,[endno-integerj 



EDIT 



acingJj ' (,|H], [lines-integer] ,|P| 

[erase=|^J.J 



return data: 

reg l=address of batch sequence number 

reg 1 5 ~ code significance 

WT request accepted. 

All register 1 5 contains two-byte 

other message number 

codes 



[symbol] 



WTL 



message-text 



return data: 
reg 15 = code 

(hex) significance 

successful 

4 attention interruption 

C invalid message length, no 
message sent 



(symbol] 



^^TO 



message-text 



return data: 

reg 1 5 = code 

(hex) 



4 

C 



significan ce 

success! uT 
attention interruption 
invahd message length, no 



[symbol] 



WTOA 



message- text 



return data: 
reg I5=code 

(hex) significance 

successful 

4 attention interruption 

C invalid message length; no 
message sent 



[symbol] 



WTOR 



message-text, reply-addr, length-value 



return data: 
ree 1 5 = code 
(hex) 


4 
C 



signiHcanc e 

successful 

attention interruptic 
invalid message leng' 
sent 



. no message 



10 reply length greater llian maximum, 
reply was received but only 
maximum number of characters in 
reply area 
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APPENDIX 



Permanent Storage Assi^ment 



Address 



Dec 


Hex 


Binary 




Length 








0000 


0000 


double word 


8 


8 


0000 


1000 


double word 


16 


10 


0001 


0000 


double word 


24 


18 


0001 


1000 


double word 


32 


20 


0010 


0000 


double word 


40 


28 


0010 


1000 


double word 


48 


30 


0011 


0000 


double word 


56 


38 


0011 


1000 


double word 


64 


40 


0100 


0000 


double word 


72 


48 


0100 


1000 


word 


76 


4C 


0100 


1100 


word 


80 


50 


0101 


0000 


word 


84 


54 


0101 


0100 


word 


88 


58 


0101 


1000 


double word 


96 


60 


Olio 


0000 


double word 


104 


68 


Olio 


1000 


double word 


112 


70 


0111 


0000 


double word 


120 


78 


0111 


1000 


double word 


128 


80 


1000 


0000 


* 



Purpose 

IPL PSW ) overlayed 
IPLCCWl > after 
IPLCCW2 7 IPL 
external old PSW 
supervisor call old PSW 
program old PSW 
machine-check old PSW 
input/output old PSW 
channel status word 
channel status word 
unused 

timer (uses bytes 50, 51,52) 
unused 

external new PSW 
supervisor call new PSW 
program new PSW 
machine-check new PSW 
input/output new PSW 
diagnostic scan-out area 



♦Maximum size is 256 bytes. 

Old and new PSWs, in permanent storage, are always in extended PSW 
format; interrupt codes will overlay low-core 14-23 as indicated below: 



14 


E 


0000 


1110 


2 bytes 


External interrupt mask 
(for extended PSW) 


16 


10 


0001 


0000 


2 bytes 


SVC 


18 


12 


0001 


0010 


2 bytes 


Program interrupt code 


20 


14 


0001 


0100 


2 bytes 


Machine check code 


22-23 


16 


0001 


0000 


2 bytes 


I/O interrupt code 



Hexadecimal and Decimal Conversions 

To find a decimal number: Locate each digit of the hex number and its 
decimal equivalent for each position (columns 6-to-l). The decimal number 
is the sum of the equivalents. 

To find a hex equivalent of a decimal number: (A) Locate the decimal 
number that is next-lower than that number; this is the first hex digit; (b) 
subtract the lower decimal number from the original decimal number; (c) re- 
peat step A for the decimal difference, to get the next hex digit; then 
continue the process until the entire original decimal number has been con- 
verted. 



BYTE 


BYTE 


BYTE 





1 2 3 


4 


5 6 7 





1 2 3 


4 


5 6 7 


1 


2 3 


4567 


Hex 


Dec 


Hex Dec 


Hex Dec 


Hex Dec 


Hex 


Dec 


Hex 


Dec 



1 



1,048.576 



1 




65,536 



1 



4,096 



1 




256 



1 



16 



1 



1 


2 


2,097.152 


2 


131,072 


2 


8,192 


2 


512 


2 


32 


7 


2 


3 


3.1 45,728 


3 


196,608 


3 


12,288 


3 


768 


3 


48 


3 


3 


4 


4,194,304 


4 


262,144 


4 


16,384 


4 


1,024 


4 


64 


4 


4 


5 


5,242,880 


5 


327,680 


5 


20,480 


5 


1,280 


5 


80 


5 


5 


6 


6.291,456 


6 


393.216 


6 


24,576 


6 


1,536 


6 


96 


6 


6 


7 


7,340,032 


7 


458,752 


7 


28,672 


7 


1,792 


7 


112 


7 


7 


8 


8,388,608 


8 


524,288 


8 


32,768 


8 


2,048 


8 


128 


8 


8 


9 


9,437.184 


9 


589,824 


9 


36,864 


9 


2,304 


9 


144 


9 


9 


A 


10,485 760 


A 


655,360 


A 


40,960 


A 


2,580 


A 


160 


A 


10 


B 


11,534,336 


B 


720,896 


B 


45.056 


B 


2.816 


B 


176 


B 


11 


C 


12,582,912 


C 


786,432 


C 


49,152 


c 


3,072 


C 


192 


C 


12 


D 


13,631,488 


D 


851,968 


D 


53,248 


D 


3.328 


D 


208 


D 


13 


E 


14,680.064 


E 


917,504 


E 


57,344 


E 


3.584 


E 


224 


E 


14 


F 


15,728,640 


F 


983,040 


F 


61,440 


F 


3.840 


F 


240 


F 


15 


6 


5 


^ 


■' 


: i 1 1 
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Hex-Binary Power Table 







POWt RSOf- \b 








powi;rs()F2 






1(^' 




n 




2" 1 


11 








1 
25(1 



1 




1 024 

2 04K 


1(! 
11 






4 


0')h 






4 0^6 


12 






f)5 


53(^ 


4 




8 1^2 


13 






1 048 


57(. 


5 




1 6 384 


14 






W> 777 


216 


6 




32 7(»H 


IS 






2!^S 43^ 


456 


7 




65 536 


hi 






4 2^M ','(.7 


2')6 


H 




131 072 


1 ' 






<.^ 7:^' 47(^ 


736 


'; 




262 144 


IN 




1 


li')') 511 (07 


776 


10 




524 IXH 1«^ 




i? 


5^>2 !8(^ 044 


416 


1 1 


1 


048 576 


20 




2K1 


474 ')7r> 710 


656 


12 


2 


ml 152 


21 




4 503 


5'^) h27 Mi) 


4^-* 6 


1 1 


4 


1^)4 304 


22 




72 057 


5' 4 037 ()2i 


'J36 


14 


8 


^83 608 


23 




1*^2 421 


504 h{J(5 H4(i 


^)76, 


15 


16 


777 216 


24 



Channel Address Word 



Key 







Channel command word address 



3 4 



7 8 



31 



Bits Meaning 

0-3 storage protection key = 0-15 
4-7 must be aU Os 

&-31 address of ilist CCW in main stoiage associated with start-I/O 
instruction 



Channel Status V 


Ifor 


d 






Key 





Channel command word address 


3 4 


7 8 




31 


Status 




1 Byte cx)unt 





32 



47 48 



63 



Bit Meaning 

0-3 storage protection key used by I/O operation initiated by last 

start-1/O instruction - = 0-15 

4-7 must be aU Os 

8-3 1 address of last CCW used + 8 

32-47 conditions that caused CSW to be stored 

32 attention 

33 status modifier 

34 control unit end 

35 busy 

36 channel end 

37 device end 

38 unit check 

39 unit exception 

40 program-controlled interruption 

4 1 incorrect length 

42 program check 

43 protection check 

44 channel data check 

45 channel control check 

46 interface control check 

47 chaining check 

48-63 count; contains residual count (bytes not transmitted) of last 
CCW used; when reading or writing variable-length records 
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Channel Command Word 



Command code 



Flags 



36 37 



39 40 



47 4 



0-7 command codes by device as indicated below 

8-3 1 address of storage area to be operated on by CCW 

32-36 flags for CCW operations 

32 causes address portion of next CCW to be used 

33 causes command code and data address in next CCW to be used 

34 causes possible incorrect length indication to be suppressed 

35 suppresses transfer of information to main storage 

36 causes interruption, as program control interrupt 



3 7-39 Os for all CClVs other than TIC 












40-4? not used 














48-63 nu 


mber of bytes in area addressed by bits 


8-31 










Direct-Access Storage-Device Command Codes 
















MuWple-traek 
















(M-T» Off 






M-Tont 


8-hii code 










Command for CCW 


Count 


0123 4567 


Hex 


Dec 


Hex 


Dec 


Control 


No op 


X 


0000 000 J 


03 


03 








Seek 


6 


0000 0111 


07 


07 








Seek cylinder 


6 


0000 1011 


OB 


11 








Seek head 


6 


0001 1011 


IB 


27 








Set file mask 


1 


0001 nil 


IF 


31 








Space €i)unt 


X 


0000 ill] 


OF 


15 








Transfer in 


X 


XXXXIOOO 


X8 










clian net 
















Recalibrate 




0001 0011 


13 


19 








(23 1 1 only) 
















Restore (2321 


X 


0001 0111 


17 


23 








tnily) 














Sense 


Sense I/O 


6 


0000 Olio 


04 


04 






Switch- 


Release device 


X 


1001 0100 


94 


148 






ing 


Reserve device 


X 


1011 0100 


B4 


180 






Searcht 


Home address EQ 


4 (usually) 


0011 1001 


39 


57 


B9 


185 




Identifier HQ 


5 (usually) 


0011 0001 


31 


49 


Bl 


177 




Identifier HI 


5 (usually) 


0101 0001 


51 


81 


Dl 


209 




Identifier EQ 


5 (usually) 


0111 0001 


71 


113 


Fl 


241 




or HI 
















Kev EQ 


1 to 255 


0010 1001 


29 


41 


A9 


169 




Key HI 


1 to 255 


0100 1001 


49 


73 


C9 


201 




Key EQ or HI 


1 to 255 


Olio 1001 


69 


105 


E9 


233 




Key & data EQ* 




0010 1 101 


2D 


45 


AD 


173 




Key & data HI* 




0100 1101 


4D 


77 


CD 


205 




Kev & data EQ 




Olio 1101 


6D 


109 


ED 


237 




or HI* I 
















Continue scan > 


Note 1 














EQ* / 




0010 0101 


25 


37 








HI* I 




0100 0101 


45 


69 








EQorHI* 1 




Olio 0101 


65 


101 








no ccniipare* 1 




0101 OIOI 


55 


85 








set compare* f 




0111 0101 


75 


117 






Readt 


Home address 


5 


0001 1010 


lA 


26 


9A 


154 




Count ^ 


8 


0001 0010 


12 


18 


92 


146 




Record RO 1 




(XJOl Olio 


16 




96 


150 




Data / 


Number 


0000 0110 


06 


06 


86 


134 




Key & data f 


of bytes 


0000 1110 


OE 


14 


8E 


142 




Count, key / 


trans- 


0001 1110 


IE 


30 


9E 


158 




& data i 


ferred 














Initial program 1 




0000 0010 


02 


02 








load HPL) / 














Write 


Home address 
Rectird RO 


5 ( usual! V 
H+KL+DL 


0001 1001 


19 


25 










of RO 


0001 0101 


15 


21 








Count kev & 


8+KL+DL 


0001 1101 


ID 


29 








data 
















Special count 


8+KL+DL 


0000 0001 


01 


01 








kev & data* 
















Data 


DL 


0000 0101 


05 


05 








Key & data 


KL&DL 


0000 1 101 


OD 


13 







. * Special Feature Note 1 . includes mask bytes in search argument. 

t M-T On = M-T Off except, during Search and Read bit = 1 in M-1 On. 

X = not significant; KL = Key Length DL = Data Length; EQ = Equal; HI = High 
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Channel Command Codes 



Device 












8-blt code 


Hex 


Dec 


Command fofCCW 


P 





1 


2 


3 


4 


5 


6 


7 


2702 


Write 


¥ 


0~ 





¥ 














1 


~oT 






Read 























1 





02 






Sense 




























04 






Orders 


























Autowrap 


1 






















1 


05 






Dial 











1 





1 








1 


29 






Break 

















1 







I 


OD 






Prepare 





















1 





06 






Inhibit 
















1 





1 





OA 






Search 

















1 




1 





OE 






Sadzer 














1 








1 


1 


13 






Sadone 













1 







1 


1 


17 






Sadtwo 













1 


1 





1 


1 


IB 






Sadthree 














1 


1 




1 


1 


IF 






Enable 










1 










1 


1 


27 






Disable 











1 





I 




1 


1 


2F 






Release 




1 


I 





1 













D4 






Reserve 





1 


1 


1 


1 













F4 






I/O no-op 






















] 


1 


03 






Test I/O 






















p 


L^ 


00 




1052 


Read inquiry BCD 




0~ 





F 


o" 


T 


o" 


1 


li 


"OA 


10 




Read reader 2 BCD 






















1 





02 


02 




Write BCD, auto carriage return 
















1 








I 


09 


09 




Write BCD, no auto carriage return 

























1 


01 


01 




No Op 






















1 


1 


03 


03 




Sense 



















I 








04 


04 


1 Alarm 










o_ 





2 


0. 


J_ 


2 


OB 


11 


2540 


Read, feed, select stacker SS Type A A 
Read Type AB 
Read, feed (1400 compatibility 

mode only) 
Feed, select stacker SS Type BA 




S 

1 
1 

s 


s 
1 

1 

s 


D 
D 
D 

1 





1 



















1 
1 

1 

1 






1 








PF R punch , feed . select Ty pe B A 




s 


s 


D 





1 








1 








stacker SS 


























Punch , feed , select stacker SS Type BB 




s 


s 


D 














1 






SS 


Stacker 




D 


Data Mode 


00 


Rl 





EBCDIC 




01 


R2 




1 


column binary 


























10 


RP3 



































95 



! 
























8-bit code | 


n 


' 


Device 1 Command for CCW 





1 


2 





4 


5 6 


7 


Hex Dec 1 

1 


1403 or 


Write, no space 










0~ 





c 







01 


01 


1443 


Write, space 1 after print 
















1 c 







09 


09 




Write, space 2 after print 













1 


c 







|] 


17 




Write, space 3 after print 













1 


1 




19 


25 




Write, skip to channel N 




1 


C 


H 


A 


N 










after print 
























Diagnostic read (1403) 
















0|1 





02 


02 




Diagnostic read (1443) 
















1 


M 





06 


06 




Test I/O 
















0|0 





00 


00 




Sense 
















1 


0_ 





04 


04 


Carriage 


Space 1 line immediately 
















1 c 






OB 


11 


Control 


Space 2 line immediately 













1 


c 






13 


19 




Space 3 line immediately 













1 


1 c 






IB 


27 




Skip to channel N immediately 


1 


c 


H 


A 


NC 












No op 
















c 


J 




03 


03 


^ 


H 


A 


N 


Channel 


C 


B_ 


A 


_N_ 


Channel 


T 








" 1 


1 





1 


1 


1 


7 










1 





2 













8 




























1 


1 


3 










1 


9 

























1 








4 







1 





10 

























1 





1 


5 







1 


1 


II 

























1 


1 


Q, 


6 




1 








12 






















1 


2400 


Transfer in channel 
















1 c 








08 


08 


Tape* 


Sense 
















1 








04 


04 




Read backward** 
















I 1 








OC 


12 




Write 
















c 





1 


01 


01 




Read 
















c 


1 





02 


02 




Control 










c 


c 


C 1 


1 


1 








Mode set 




D 


D 


M 


M 


MC 


I 


1 






* 9-track op. forces 800 BPl and odd parit 


f ; also, it overrides 


1 


7-track but does not reset 7-track. Load/ 


sys reset forces | 


7-track 


to 800 BPI, odd parity, data conv 


erter on, translator 


off. 


1 


Control 


1 




7-Track 






cc 


c 


codes 


Hex 


Dec 


D 


D 


density 













REW 


7 


7 








200 










1 


RUN 


OF 


15 





1 


556 









1 





ERG 


17 


23 


1 





800 








1 


i 


1 




WTM 
BSR 


IF 

27 


31 
39 


I 


1 


800 










1 





1 


BSF 


2F 


47 










c 

o 


o 










I 1 

1 ll 




1 


FSR 
FSF 


37 
3F 


55 
63 




1 


1 


1 


1 

c 


c 

o 

5 


c 
1 














•a 




o 


c 














Q 


s 


> 


u 


u 


T» 


1 


3 =J 
























♦♦Overrides data 


M M M 


(Mode Modifiers) 


'jTi 




I 


Q 


a 


■^ 


H 


^t 


Conv< 


Iter On 





No Op 


















1 


Not used 


















1 


Reset Condition 


2(_ 


x_ 




T 






_X 




1 1 


Nine-track only 
















X 


1 


X! 




IT 




IT 




'x. 




1 1 


X 




X 




X 


T" 






1 1 


Reset Condition I 


2l! 


^ 






X 




^ 




111 1 


X 


X 






X X 
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Virtual 


PSW 
















p 


Not 

Used 


Task 

mask 


L 
C 


CC 


FO 


DO 


EU 


SF 


Intemipt code 


x|a|t]i 



1 



7 8 9 10 11 12 13 14 15 16 



31 



Instruction addiess 



32 



63 



Bit 



1-3 
4-7 
4 
5 
6 
7 
8-9 



12-15 
12 
13 
14 
15 
16-31 
32-63 



Meaning 

Z , ( 0=piivileged \ 

pnvilege-state mask < ^ . „ , > 

I l=nonpnvileged j 

not used 

Task mask (l=allows intenrupts; l>=dm]lows interrupts) 

X=extemal interrupt mask 

A=asynchronous interrupt mask 

T=timer interrupt mask 

I=synchronous interrupts 

ILC=instruction length code 



IflLC 
bit is 



then 



01 
10 

11 

10-11 CC = condition code 



Instruction 
lei^h is 

1 half word 

2 half words 

3 half words 



CCMts 

00 
01 

10 

11 



Meaning 

0-balance 
negative 

poative 
overflow 



OP-code 
and bits were 

00 
01 or 10 

11 

Branch-on -condition 

equal- 1000 
low -0100 

0010 

0001 
combination- 1101 



high 



program masks for special conditions 

fixed point overflow mask 

decimal overflow mask 

exponential overflow 

loss of significance 

interrupt codes (see table, later in Appendix) 

instruction address (32-bit virtual address) 



Note: Task dumps use Virtual PSW. 



Extended Program Status Word 



spare 


24-32 
bit 

mode 


Transla. 
Ctrl. 


I/O 
mask 


Ext. 
mask 


Protec. 
key 


AMWP 


ILC 


CC 


Prog, 
mask 


Spare 


34 5 6 7 8 11 12 15 16 17 18 19 20 23 24 31 


1 Instruction Address 



32 
Bit 

D-3 

4-5 

4 

5 



63 



Meaning 

spare (must be Os) 
DAT mode and control bits 
24- or 3 2-bit address mode 
translation control 



Bit 4 Bit 5 Mode of Operation 

no translation, except for LRA operand; 24-bit 

logical address (LRA only) 

translation for all program-generated addresses; 

24-bit logical address 

no translation except for LRA operand; 

32-bit logical address (LRA only) 

translation for all program-generated addresses; 

32-bit logical address 
*Specification exception, if no 32-bit option; recc^nized as 
part of execution of first instruction after extended PSW is 
loaded. 







1* 



1* 



1 







1 
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, ,^ , , . t l=inteiTupts allowed { 

6 I/O mask (summary) { „ . ^ \ ^ „ ,f 

f 0=mterrupts not allowed i 

(used with control register 4, extended mask register) 

7 external mask (summary \ l=extemal interrupts allowed { 

I 0=extemal mterrupts not allowed \ 
(used with control register 6, bit 24-31) 

12 character mode I ASaW^ I 

13 machine check mask; operates with register -6 machine-check control 

Control 
PSW register 6 
Bit 13 BitO Bit 1 Remarks 

- - all machine checks masked-off by PSW 

bit 13 
10 only CPU machine checks recognized 

10 1 CPU and channel controEer 1 machine 

checks recognized 
110 CPU and channel controller machine 

checks recognized 

1 1* 1* All machine checks recognized 
* Bits set to 1 by system reset 



14 


wait state = 1 






running state = 




15 


problem 


state = 1 






supervisor state = 




16-17 


instruction length code 






LLC 


Instruction 


Op -code 




bits 


length 


bits 




01 


1 half word 


00 




10 


2 half words 


01 or 10 




11 


3 half words 


11 


18-19 


condition code 










Branch or 




Bits 


Meaning 


condition masks 




00 


0-balance 


equal 1000 




01 


negative 


low 0100 




10 


positive 


ui^h 0010 
^•^ 0001 




11 


overflow 


combination 1101 


20-23 


program mask 




20 


fixed-point overflow mask 


21 


decimal overflow mask 


22 


exponent underflow mask 


23 


significance mask 




24-31 


spare 






32-63 


instruction address 





Note: Real storage dumps use Extended PSW 
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Time Sharing System/360--lnterruption Codes 





Interruption code 


Instruction 


Interruption 


(PSW Bits 16-31) Dec. Hex. U.C execution is 


Machine check (CPU) 


(>()0«0000 00(K)000() (M) u 


fcriTiinated 


External machine check 






Mod. 2067 2 




u 


( ornpletcd 


(see notes 2,3) 








Progrjm 








Operation 


(XKHJOOOO OOOllOtKIl 


1 0001 :i,.],.^ 


Suppressed 


Fiivilei!L'd operation 


()t)()(){)()()0 ()()()( lOlM (J 


2 ,0002 1,2 


Suppiessed 


Execute 


()(K)(K){)(»(J tJ(H)(K)(M I 


3 


0003 2 


Suppressed 


Frotecli-.n 


()«.l{)( )()()()() OOOOOHH) 


4 


0004 0,2.3 


Suppressed/ 
teiminated 


Addressing 


0(K)()()()00 UtJOfKllO] 


5 


0(J05 


1,2,3 


Suppiessed/ 
terminated 


SpCLihcjIion 


DdOOOOOO tJt.K)(K)] ID 


b 


00t)(i 


1,2,3 


Suppressed 


Datj 


l)(K)l)(KM){) E)(HXK)1II 


7 


0007 


2, 3 


Suppressed/ 

teinunated 

Completed 


I-i\ed-pnint nveiHovv 


()(»()()(HMK) (.MH)(il(H)() ' H 


t)0OH !l , 2 


i'lxed-point divide 


()(W)()(){KI{) tX){)()l()(M ' '} 


1)01^) il , 2 


Suppressed; 










teiminated 


DccHiial Mvertluvv 


()(K)()(HMK) OdOOIOH) lO 


0()OA 


3 


Coniplcted 


Ueeinial divide 


OOOOOOOO OOOdlOI 1 1 1 


(iO((B 


3 


Suppressed 


[•vpuiicnl cveillos^ 


()(){)()(){)()() onooiioo 12 


OOOC 


1, 2 


Teiminated 


Ixpoiieiit undeillovv 


odoooooo 000(11 101 r^ 


00(»I) 


1,2 


Completed 


Siiiftilicaiice 


yiK)U()(X.K) OOOOl 110 1 14 


OOOl: ]\ . 1 


Completed 


hloalmu-puint divide 


(KIOOOOUO OdOOl 1 1 1 


15 


O0(,lF il 2 


Suppiessed 


Scuineitt relocation 


OOOOOOOO (Jt.K)l(IOOO 


\h 


0010 


11 


Suppiessed 


Page re!, .eat ion 


OtKMiOOUO 0(K)1()00| 


17 


l,K)l 1 


u 


Suppiessed 


Supervisoi ( all 


OOOOCMMK) nrirttr 






! 


Suppiessed 


l-Meiiial 

l-Ateinal signal 7 


(X 10000(10 uuuuuual 






u 


( oinpleled 


[■vteiiial sigiKil h 


0(,M)()O(MK) uuuuiiulu 




[ii 


Completed 


' l-Metna! sijznalS 


00000000 uuuuuluu 




'u 


( ompleted 


1 Memai signal 4 


00000000 uuuuluuu 




u 


Ct>mpleted 


l-xtetnal sigisal 3 


00000000 uuuliiuuu 




( ompleted 


i Mei!ial signal 2 


00000000 iinluuuuu 




( ompleted 


IN II KRlh puslihiilton 


OOOOO(MK) uluiuiuuu 




( ompleted 


1 ine! 


OOOOOOOO luuuiiuuu 




( ompleted 


1 () Mod. 2i)ul-\ 








Multiplexor ehanne! 


(KJOOOOOO aaaaaaaa 




( ompleted 


Seiecloi channel 1 


00000001 aaaaaaaa 




( t>mpleted 


Seiectoi channel 2 


OOOOOOIO aaaaaaaa 




Completed 


Selector channel 3 


00000011 aaaaaaaa 




( ompleted 


Selector channel 4 


00000 1 (MJ aaaaaaaa 




(\>mpleted 


Seiectoi channel S 


000(,i010| aaaaaaaa 




Completed 


Select oi channel h 


00000110 aaaaaaaa 




Completed 


I/O Mod. :()67-2 








|sce note "s ( 

<rv 1 


OOOOObbb aaaaaaaa 






u 


Completed 


ViV 2 


00001 bbb aaaaaaaa 






11 


Completed 


(TV } 


OOOIObbb aaaaaaaa 






li 


Completed 


VVVA 


000 11 bbb aaaaaaaa 






u 


Completed 



'\htircviatii»ns: 

u - un pre die table 

r - Rl and R2 Hclds in superviMir call in- 
struction 

a- I/O tJcvicc address 
It - 1/1.) eluinnel address 

When iiitemiption occurs in standard PSW 
mode, interruption code is stored in hits 
16-31 ot old PSW, uhen in extended PSW 
mode, code is stored in locations (101-017. 

In extended PSW mode, tnt 13 is overall 
machine theck intemipt irusk; includes ex- 
ternal machine check interrupts. If PSW 
<13)= U. machine chcnk interrupts arc 



masked; if PSW ( 13) - I . machine check mter- 
rufUs are taken. I'xternaJ machine check inter- 
rupts are treated aecordiiij; to associated mask 
bits m (TU control retdsler 4. 



I xtended PSW liit 7 is i 
mpl mask. It PSW (7) = 



•rail externa] inter- 
external internipts 
arc masked; il PSW (7) = 1, external mterrnp- 
tions are treated aeeordini.; to associated mask 
hits m CPU control nndster 6. 

5. Ixlended PSW bit 6 is overaU l/() mtcrruption 
mask, if PSW (6) = (), all I/O channels are 
masked, if PSW «6)= I. I/O interrupts are 
treated according to associated mask hits m 
(Pi; control registers 4 and 5. 
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TSS/360 Extended Program Interruption Codes 

Codes 1 thru 17 are used by the hardware. We reserve codes 18 thru 31 
for future hardware interrupt expansion. This leaves codes and 32 to 
65535 for specifying software program interrupt errors. Further, codes 
65280 thru 65535 are reserved for those errors which are temporary in 
nature. The currently defined codes are: 



t ODE 


CODE 


ISSUING 


(DEC) (HEX) 


MODULE 


00 


00 


CEAA 8 


01 


01 




thni 




31 


IF 




32 


20 




33 


21 


CEAAl 


34 


22 


CEAAO 

<:t:aai 


35 


23 


CEAAO 
CEAAl 


36 


24 


CEAAO 
CEAAl 


37 


25 


CEAAO 


38 


26 


CEAR3 


39 


27 


CEAAF 


40 


28 


CEAAF 


41 


29 


CEAAF 


42 


2A 


CEAAF 


43 


2B 


CEAAF 


44 


2C 


CEAAF 


45 


2D 


CEAAF 


46 


2E 


CEAAO 


47 


2F 


CEAAO 



CEAAl 



48 


30 


CEAAO 
CEAAl 


49 


31 


CEAND 


50 


32 


CEAAO 
CEAAl 


51 


33 


CEAAO 
CEAAl 


52 


34 


CEHAS 


53 


35 


CEAND 


54 


36 


CEAND 


56 


38 


CEAND 


61 


3D 


CEA06 
CEA07 


72 


48 


CEAH2 


73 


49 


CEAP7 


74 


4A 


CEA06 


75 


4B 


CEA05 



ERROR DESCRIFFION 

DRAM request to nonexistent drum address 
As in preceding 'TSS/360 Interruption Codes" 



(not assigned) 

nonprivileged module not permitted to 

use PGOUT 
record length exceeds 32,768 bytes 
record length exceeds 32,768 bytes 
buffer page is not assigned to a VM address 
buffer page is not assigned to a VM address 
task has no devices assigned 
task has no devices assigned 
lOCAL parameter Ost (lORCB) is too short 
Schedule Table entry value specified is invahd 
task has allowed its program interrupts pending 

counter to overflow 
task has allowed its service caUs pending 

counter to overflow 
task has allowed its external interrupts pending 

counter to overflow 
task has allowed its asynchronous interrupts 

pending counter to overflow 
task has allowed its timer interrupts 

pending counter to overflow 
task has aDowed its I/O interrupts pending 

counter to overflow 
unclassified task interrupt 
lOCAL parameter Ust (lORCB) is too large 
lOCAL parameter list (lORCB) crosses 

a page boundary 
PGOUT parameter list (lORCB) crosses 

a page boundary 
task does not have requested device assigned 
task does not have requested device assigned 
task attempted to delete an IVM page 
SVC page is not assigned to a VM address 
SVC page is not assigned to a VM address 
SVC page is not in core 
SVC page is not in core 
nonpriviliged user issued TSSS SVC 
task attempted to delete a page in an 

unassigned segment 
task attempted to delete an unassigned page 
task attempted to reassign an IVM page 
the shared segment table request 

overflows available space 
the shared segment table request 

overflows available space 
illegal code given to SETUP/XTRCT SVC 

processor 
AWAIT SVC not executed remotely or else 

not on the last half word of an ECB 
invalid shared-page table number given 

to ADSPG SVC processor 
VSEND SVC not executed remotely 
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76 4( 

77 41) 
79 41 



81 

82 

83 



51 
52 
53 



84 54 

85 55 

86 56 

87 57 



94 5E 



( EA05 
(1 AIR 

( EAHO 

CEAHO 

CEAH7 

ce:ah7 

CEAH7 

(EAH7 

CEAH7 
CEAH7 
CEAP4 



88 58 CEA08 



89 


59 


CEAHQ 


90 


5A 


CEA07 


91 


5B 


CEAPO 

CEAS7 


92 


5C 


CEAPO 


93 


5D 


CEAS2 



CEAS4 



95 
96 


5E 
60 


CEAPO 

CEAHO 
CEAJT 


97 


61 


CEAJT 


98 


62 


CEAJr 


99 


63 


CEAJT 


100 


64 


CEAJT 


101 


65 


CEAJT 


102 


66 


CEAJT 


103 


67 


CEAJT 


104 


68 


CEA02 


105 
108 
109 

112 


69 
6C 
6D 
70 


CEAAC 
CEAA 1 

(t:ao6 

CEAAK 


113 


71 


ct-:aak 


123 


7B 


CT^A06 


124 
125 
144 
145 


7C 
7D 
90 
91 


CEAAO 
CEAAO 
CEAAO 
CEAAO 


146 


92 


CEAAO 


147 
148 
149 
150 


93 

94 
95 
96 


CEAAO 

CEA.40 
CEAAO 
CEAAO 



151 97 CEAAO 



VSEND parameter list (MCH) exceeds 

239 bytes or crosses a page boundary 
software detected hardware failure 
invalid SVC code issued by task 
user's task not of sutTicient priority 

to issue SVC 
SETXP SVC not on a word boundary 
count of external addresses is zero 
parameter list crosses a page boundary 

or page not in caller's page table 
count of external addresses exceeds 1022 
a specified page is unassigned 
external device error 
VPSW does not begin on a double word 

boundary 
shared page table number supplied by 

caller is invalid 
ADDPG call specified an invalid protection key 
segment specified is unassigned 
from page is not assigned to the task 
real time interrupt not deleted, does not exist 
to page is not assigned to the task 
illegal code given to SETSYS/XTRSYS SV(^ 

processor 
illegal code given to Sl-TXTS/XTRXTS SVC 

processor 
the from or to address is that of a shared page 
ADDPG request overflows available VM space 
Enter SVC issued to interrupt table type 

routine while Type III linkage in 

el feet and PI flag on 
Enter SVC issued with invalid enter 

code (higher than 255 lo w 

unassigned) 
SVC issued on nonprivilcged state and 

no interrupt routine specified 
No asynchronous error routine detined 

for device with error 
Asynchronous internipt received; no I)E 

available for device 
SEITR not accepted; system limit 

reached in table 
Program interrupt received while in 

Type III linkage 
SVC interrupt received while in Type 

III linkage 
task attempted to set timer beyond 

55,364,812 milliseconds 
illegal symbolic device add^c^s detected 
PGOirr record length is zero 
shared pages to be added exceed 256 maximum 
a SETAE was issued against a device not 

assigned to task 
a SETAE was issued specifying a non- 
existent TSI 
ADSPG for public share page table not 

accepted 
IOC AL SVC CCW lis1 can not be relocated 
DRAM CON list can not be relocated 
relocation read; no path available 
relocation read: device error on a 

permanent volume 
relocation read; device error on a 

moveable volume 
relocation read; surface error 
relocation read: SIO failure 
lOCAL read; no path available 
lOC'AL read; device error on a permanent 

volu me 
lOCAL read; device error on a moveable 

volume 101 
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152 


98 


CEAAO 


153 


99 


CEAAQ 


154 


9A 


CEAAO 


155 


9B 


CEAAQ 


156 


9C 


CEAAQ 


157 


9D 


CEAAQ 


158 


9E 


CEAAQ 


159 


9F 


CEAAQ 


160 


AO 


CEAAQ 


161 


Al 


CEAAQ 


162 


A2 


CEAAQ 


163 


A3 


CEAAQ 


200 


C8 


CEAHQ 


202 


CA 


CEAIS 


224 


EO 


CEATC 



225 El CEATC 

226 E2 CEATC 



227 


E3 


CEATC 


228 


E4 


CEATC 


229 


E5 


CEATC 


230 


E6 


CEATC 


253 


FD 


CEABZ 


254 


FE 


CEABZ 


255 


FF 


CEABZ 



lOCAL read: surface error 

lOCAL read: SIO failure 

PGOUT read: no path available 

PGOUT read: device error on a permanent 

volume 
PGOUT read: device error on a moveable 

volume 
PGOUT read: surface error 
PGOUT read: SIO failure 
TWA IT read: no path available 
TWAIT read: device error on a permanent 

volume 
TWAIT read: device error on a moveable 

volume 
TWAIT read: surface error 
TWAIT read: SIO failure 
task has exceeded its TSEND SVC maximum 
task issued a major VM SYSER 
Interruption from CIP but device not 

connected to 2701/2/3 
Interruption received from unknown device 

type; not a 1050, 2741, or TTY35 
VM address of buffer or TCT page not 

convertible to a real core address 
Active count in TCT or buffer page not zero 
Release of path could not be issued 
No work specified in flag byte 
TCT or buffer page pointer is to IVM 
Cannot locate VM page containing ERR 

simulation data 
Page containing ERR simulation data not 

in real core 
ERR simulation table crosses page boundary 
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Printer Carriage-Control Cod^ 

Machine Codes 





Byte value 


Function 


(hexadecimal) 


Write (no automatic space) 


01 


Write and space 1 line after printing 


09 


Write and space 2 lines after printing 


11 


Write and space 3 lines after printing 


19 


Write and skip to channel 1 after printing 


89 


Write and skip to channel 2 after printing 


91 


Write and skip to channel 3 after printing 


99 


Write and skip to channel 4 after printing 


Al 


Write and skip to channel 5 after printing 


A9 


Write and skip to channel 6 after printing 


Bl 


Write and skip to channel 7 after printing 


B9 


Write and skip to channel 8 after printing 


CI 


Write and skip to channel 9 after printing 


C9 


Write and skip to channel 10 after printir^ 


Dl 


Write and skip to channel 1 1 after printing 


D9 


Write and skip to channel 12 after printing 


El 



To obtain corresponding carrij^e-control operations (space or skip 
to channel N) without printing, increase value of low-o^er digit by 
hexadecimal 2; example: 

space two lines 1 3 

skip to channel 5 AB 

skip to channel 9 CB 

Extended ANSI FORTRAN codes 



Function 


Character 


Skip no line before printing 


-»- 


Skip 1 line before printing 


blank 


Skip 2 lines before printing 





Skip 3 lines before printing 




Skip to channel 1 before printing 


1 


Skip to channel 2 before printing 


2 


Skip to channel 3 before printing 


3 


Skip to channel 4 before printing 


4 


Skip to channel 5 before printing 


5 


Skip to channel 6 before printing 


6 


Skip to channel 7 before printing 


7 


Skip to channel 8 before printing 


8 


Skip to channel 9 before printing 


9 


Skip to channel 10 before printing 


A 


Skip to channel 1 1 before printing 


B 


Skip to channel 12 before printing 


C 
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EXAMPLES 
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EXAMPLE 1 - EXPLANATION 

1. When your temiinal is activated, you enter the LOGON command 
specifying your user identification code and, if you have one, a 
password. 

2. Once the system verifies your user-id and password, the system 
responds with a message indicating your LOGON was successful 
and presents the task identification number assigned to your 
terminal session. 

3. The PC? (present catalog) command causes display of your data set 
catalog. 

4. The system presents your data set names, access level (read-only, 
read-write, or unlimited), and the data set's owner if you are 
sharing it. 

5. Define a virtual partitioned data set named LIB 1 as a job library. 

6. Invoke the text editor to create a source data set for a FORTRAN 
program. 

7. Enter the break character (underscore) and the INSERT command 
to insert an omitted line after line 500. 

8. Use the break character and INSERT command again to add lines 
to the end of the data set. 

9. Use the break character and the LIST command to display the lines 
of the data set. 

10. The END command terminates use of the text editor; a semicolon 
separates the END command from the FTN command, which 
invokes the FORTRAN compiler. 

U, Issue the CALL command to invoke the newly compiled program. 

12. The program is executed: however, it contains a bug. 

13. The QUALIFY and DISPLAY commands are combined in a 
command statement to display the variables PRIN and YRS. 

14. lYRS is displayed. 

15. You unload the program, edit the source data set, and recompile it. 
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i'Ui, :uLj rctLii 
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16. Your debugged program runs correctly. 

17. Issue the DSS? command to learn the status of data set 
SOURCE.fNVEST. 

18. Issue the POD? command to display the organization of a 
partitioned data set -in this case, LIBl, the job library where the 
program INVEST is stored. 

19. Issue the PERMIT command to let others share your source data 
set. 

20. Issue the LOGOEF command to allow TSS/360 to disconnect you 
in an orderly fashion. 

2L When you receive the LOGOFF message (B007), either reenter the 
LOGON command to start another task, or turn off your terminal. 
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EXAMPLE 2 - EXPLANATION 

L When your temiinal is activated, you enter the LOGON command 
specifying your user identification code and, if you have one, a 
password. 

2. Once the system verifies your user-id and password, it responds 
with a message indicating your LOGON was successful and presents 
the task identification number assgined to your terminal session. 

3. You enter the EDIT command to create a FORTRAN program to 
solve a problem: calculate the number of combinations of n items, 
if taken r at a time: 

c .^_M_ 

n r r!(n-r)! 

4. The system prompts with line numbers and you enter your source 
statements; then, 

5. you want to compile your program. The FTN command compiles 
the program, 

6. Since no diagnostics were issued by the f'TN compiler, you decide 
to execute the program, which asks you to enter the n and r 
variables, in the form aab, where aa=n and b=r. 

7. The results are printed out. 

8. You realize 7 items taken 4 at a time cannot produce the answer 
printed at 7. So you use PCS to display intermediate results 
during program execution to determine where the error is. 

9. Issue an AT command to implant a DISPLAY command at a 
critical point in the program, to be executed each time statement 
100 (in your program)is reached. 

10. Execute your program again; enter input upon request, and get 
displays of important variables each time your DO loop is 
executed. 

11. Incorrect results again. Review the variable data returned by the 
DISPLAY command. You note that maa is incorrect in the second 
pass through the DO loop; it should have been +210. 
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12. Remove the PCS DISPLAY command from the program. Using the 
UPDATE command, enter several new source statements that you 
feel will correct the bug in your program. Issue FTN to recompile 
the program. 

13. The compilation is successful. Execute your program, again. Enter 
test data to verify the program is working correctly. 

14. The program returns an answer of 35; you know that is correct. 

1 5. Request a listing of your corrected source statements before issuing 
LOGOFF. 
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Summary of Amendments 
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